Question

Напишите программу в Турбо Паскале, которая выводит на экран фразу "Всем, привет!" 80 раз в таблице из 20 строк и 4 столбцов.

Answer 1

uses CRT;
ClrScr;
var
  i, j: integer;

begin
  for i := 1 to 20 do
  begin
    for j := 1 to 4 do Write('Всем, привет!   ');
    Writeln
  end
end.