Составить программу, которая чётное число возводит в квадрат, а не чётное в куб
Нет комментариев
Ответы
Гость Var a, b: integer;
begin
readln (a);
if a mod 2 = 0 then
b:= a*a
else
b:= a*a*a;
writeln (b);
end.
1 комментария:
спасибо
спасибо Список предметов
