Задание:
Составьте программу к задаче: Возвести данное число в куб, если оно четное, и увеличить на 3, если оно-нечетное PS: Pascal
Решение:
vara: integer; beginwriteln ('Введите число: '); read (a); if a mod 2 <> 0 then writeln ('Число нечетное: ',a+3) else writeln ('Число четное: ',a*a*a); end.
Знаете другой ответ?