Дано слово. Добавить к нему вначале и конце столько звездочек, сколько букв в этом слове.

Question

Информатика

Всеволодыч

3 марта, 09:30

Дано слово. Добавить к нему вначале и конце столько звездочек, сколько букв в этом слове.

+4

Ответы (1)

Знаете ответ?

Катяша · Answer 1

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.