Вывести на экран следующую таблицу (Pascal):
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
Ответы на вопрос
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.
сделал программку немножко посложнее :))
меняя стартовые значения переменных r и s можно построить таблицу любого размера с теми же правилами
var
r : integer := 3; // количество строк
s : integer := 5; // количество цифр в строке
k, d : integer;
begin
for var i := 1 to r do begin
for var j := 1 to s do begin
d += 1;
if d > s then d := 1;
write(d, ' ');
end;
writeln;
k += 1;
if k >= s then k := 0;
d := k;
end;
end.