Осип
4 год назад
Пожалуйста посчитайте пожалуйста, в душе не чаю как это делать
ОТВЕТЫ
Петранка
Oct 24, 2020
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 read(a[i][j]); end; readln(); end; for i := 7 downto 1 do begin for j := 1 to 7 do begin writeln(a[i][j] * a[i][j]); end; end;end.
begin for i := 1 to 7 do begin for j := 1 to 7 do begin read(a[i][j]); end; readln(); end; for i := 7 downto 1 do begin for j := 1 to 7 do begin writeln(a[i][j] * a[i][j]); end; end;end.
584
Смежные вопросы: