Ответы
Ответ дал:
0
Var Ne,Nk:integer;
Begin
For Ne:= 0 to 8 do
Begin
For Nk:= 1 to 5 do
Write((Ne*5+Nk):2,' ');
WriteLn
End;
End.
Var
a,b:integer;
Begin
a:=0;
b:=0;
While a < 7 do
Begin
a:=a+1;
b:=b+a
End;
WriteLn('b = ',b);
End.
Begin
For Ne:= 0 to 8 do
Begin
For Nk:= 1 to 5 do
Write((Ne*5+Nk):2,' ');
WriteLn
End;
End.
Var
a,b:integer;
Begin
a:=0;
b:=0;
While a < 7 do
Begin
a:=a+1;
b:=b+a
End;
WriteLn('b = ',b);
End.
Вас заинтересует
6 лет назад
6 лет назад
8 лет назад
9 лет назад
9 лет назад