Question

НАПЕЧАТАТЬ НА ЭКРАНЕ 20РАЗ СЛОВО ПРИВЕТ. ИСПОЛЬЗОВАТЬ ЦИКЛ ПО СЧЕТЧИКУ ! Напечатать в столбец,затем в строку!

Answer 1

Var
k:integer;
begin
for k:=1 to 20 do begin
writeln('Привет',' ');
end;
for k:=1 to 20 do begin
write('Привет',' ');
end;
end.

Answer 2

TurboPascal.
beginWhile y<20 dobeginy:=y+1;Writeln(y,'.Привет­');end;end.