Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы
Гость