СХЕМОЙ Составьте алгоритм возведения чётного числа в квадрат, а нечётного - в куб.
СХЕМОЙ
Составьте алгоритм возведения чётного числа в квадрат, а нечётного - в куб.
Гость
Ответ(ы) на вопрос:
ГостьНа Паскале :
Var
a : integir;
Begin
writeln('Введите число : ');
readln(a);
if a mod 2 = 1 then
writeln(a*a*a)
else
writeln(sqr(a));
end.
Надеюсь помог.
Не нашли ответ?
Похожие вопросы