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

Если Вам не сложно....Помогите мне тоже, пожалуйста...Я Вас ооочень прошу..( Вы последняя надежда...(( https://znanija.com/task/31576828

к сожалению на питоне не смогу, только если паскаль

Могу писать на паскале/плюсах/яве и совсем немного на си. К питону не подходил еще.

В это вся штука...Все именно так говорят) Я очень уважаю Вас, это очень круто знать столько языков. Но блин....Зачем в шк. программу добавлять то, что многие опытные программисты не знают....Хочется плакать((((

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.