• Составить программу, которая чётное число возводит в квадрат, а не чётное в куб

Ответы 2

  • спасибо
  • var a, b: integer;beginreadln (a);if a mod 2 = 0 thenb:= a*aelseb:= a*a*a;writeln (b);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years