Регистрация
Войти
Стать экспертом Правила
Информатика

Дано число не равное нулю, если оно четное возвести в квадрат если нет - в четвертую степень. На языке паскаль решить, желательно с блок-схемой. Пожалуйста посчитайте!

ОТВЕТЫ



begin
  var n:=ReadInteger('n=');
  n:=n.IsEven?n*n:Sqr(n*n);
  Writeln('Результат ',n)
end.


n= 8
Результат 64

n= 7
Результат 2401
229
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам