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