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

Question

Информатика

Харлампий

17 апреля, 00:03

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

+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.