Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.