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

Nna564 Nna564    3   02.09.2019 04:30    1

Ответы
Var a, b: integer;
begin
readln (a);
if a mod 2 = 0 then
b:= a*a
else
b:= a*a*a;
writeln (b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика