Question

Выведите на экран следующую таблицу (в Pascal): 1 2 3 4 5 2 3 4 5 1 3 4 5 1 2

Answer 1

Program n_1;

var a, i:integer;

begin

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

   writeln;

   for i:=2 to 6 do if (i>5) then write(i-5, ' ') else write(i, ' ');

   writeln;

   for i:=3 to 7 do if (i>5) then write(i-5, ' ') else write(i, ' ');

end.