Задание:
Дано слово. Добавить к нему вначале и конце столько звездочек, сколько букв в этом слове.
Решение:
var i: integer; var slovo: string; begin write ('Vvedite slovo: '); readln (slovo); for i: =1 to length (slovo) do slovo: ='*'+slovo+'*'; writeln (slovo); readln; end.
Знаете другой ответ?