НАПЕЧАТАТЬ ** ЭКРАНЕ 20РАЗ СЛОВО ПРИВЕТ. ИСПОЛЬЗОВАТЬ ЦИКЛ ПО СЧЕТЧИКУ ! Напечатать в...

Question

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

Answer 1

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

Comments

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

---

Сейчас с пробелами напишу

---

program e1;

---

var y:Integer;

---

begin

---

While y<20 do

---

begin

---

y:=y+1;

---

Writeln(y,'.Привет');

---

end; end.

Answer 2

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