// 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.
<em><u>Тестовое решение:</u></em>
01234
12345
23456
34567
45678
Есть =)
program z;
var k, x, i: integer;
begin
readln(k);
x:=1;
for i:=1 to k do
begin
if ((x + 1) mod 3 = 0) then x:=x*3
else x:=x+1;
end;
writeln(x);
end.
Так как всего 90 чисел,то (120+30)×(90÷2)= 6750 (по способу Карла )
Профессия работника железнодорожного транспорта-9 букв, вторая Р:
ПРОВОДНИК