Question

Составьте программу написания своего имени на экране в строчку сто раз!!

Answer 1

Ответ:

Var x: string;

i:integer; 

 begin  write('Введите имя: ');

 readln(x);

 for i:=1 to 100 do  write(x,' ');

end.