Регистрация
lsoft
08.12.2022 11:13
Информатика
Есть ответ 👍

Нысан- Топтау командасы нені білдіреді? *

163
446
Посмотреть ответы 1

Ответы на вопрос:

bondarsvetlana25
bondarsvetlana25
4,7(81 оценок)
Var  a: array[1..7, 1..7] of integer; i, j: integer; begin   for i : = 1 to 7 do    begin     for j : = 1 to 7 do      begin       if(odd (i)) then a[i, j] : = j       else a[i, j] : = 8 - j;       write(a[i, j]: 2);     end;     writeln();   end; end.

Популярно: Информатика