Категория - Информатика Автор - MisterLeo7 Выведите на экран следующую таблицу (в Pascal): 1 2 3 4 5 2 3 4 5 1 3 4 5 1 2
Категория - Информатика Автор - MisterLeo7 Выведите на экран следующую таблицу (в Pascal): 1 2 3 4 5 2 3 4 5 1 3 4 5 1 2
Ответ Автор - MrMiner1 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.