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