Ответы
Ответ дал:
0
// PascalABC.NET 3.0, сборка 1088
var
a:array[1..5,1..5] of byte;
i,j:byte;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin a[i,j]:=i+j-2; Write(a[i,j]) end;
Writeln
end
end.
Тестовое решение:
01234
12345
23456
34567
45678
var
a:array[1..5,1..5] of byte;
i,j:byte;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin a[i,j]:=i+j-2; Write(a[i,j]) end;
Writeln
end
end.
Тестовое решение:
01234
12345
23456
34567
45678
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад