Составьте программу к задаче: Возвести данное число в куб…

Question

Составьте программу к задаче: Возвести данное число в куб, если оно четное, и увеличить на 3, если оно-нечетное PS: Pascal

Answer 1

69

andreika163

21 февраля 2023

vara: integer; beginwriteln ('Введите число: '); read (a); if a mod 2 <> 0 then writeln ('Число нечетное: ',a+3) else writeln ('Число четное: ',a*a*a); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: