Составьте алгоритм возведения четного числа в квадрат, а нечетного в куб
Составьте алгоритм возведения четного числа в квадрат, а нечетного в куб
Гость
Ответ(ы) на вопрос:
Гостьprogram abc;
var a,a1,b:integer;
begin
read(a);
a1:=a;
a1:=a div 2;
if(a1=0) then
b:=Power(a,2) else
b:=Power(a,3);
writeln(b);
end.
Не нашли ответ?
Похожие вопросы