16, помогите пожалуйста

16, помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гость
Если я всё правильно понял, то должно быть так: var a:integer; begin if a mod 2 = 0 then a:=a*a else a:=a*a*a; write(a); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы