Помогите решить очень это инфа

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