Чарыков
5 год назад
Пожалуйста посчитайте решить очень это инфа
ОТВЕТЫ
Дарья
Oct 24, 2020
Var A,N:integer;
Begin
A:=1;
For N:= 0 to 9 do
Begin
A:=A+N;
WriteLn(A,' ',A*A,' ',A*A*A)
End;
End.
Begin
A:=1;
For N:= 0 to 9 do
Begin
A:=A+N;
WriteLn(A,' ',A*A,' ',A*A*A)
End;
End.
957
Смежные вопросы:
