Question

Составьте алгоритм возведённого чётного числа в квадрат, а не чётного - в куб. С полным решением.

Answer 1

var a: integer;

begin

write('Введите a: ');

readln(a);

if odd(a) then a:=a*a*a else a:=a*a;

writeln(a);

end.

odd(a) - функция, проверяющая нечетность числа. True - если число - нечетное. (Обратная функция not odd(a))