Ответы
Ответ дал:
0
На Паскале :
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.
Надеюсь помог.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад