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

Question

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

Comments

с использованием матрицы / одномерного массива?

---

нет

---

В ответ писать не буду не уверен

---

12345678910111213141516171819202122232425Vara:array[1..100,1..100] of integer;n,m,i,j:byte;f1,f2:text;BeginAssign(f1,'input.txt');Assign(f2,'output.txt');Reset(f1);Readln(f1,n,m);for i:=1 to n do begin for j:=1 to m do Read(f1,a[i,j]); Readln(f1); end;Close(f1);Rewrite(f2);for i:=1 to n do begin for j:=1 to m do Write(f2,a[i,j],' '); Writeln(f2); end;Close(f2);End.

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.

Comments

кросс\