• Ввести число.Если оно положительное, возвести его в квадрат, иначе возвести его в куб

Ответы 1

  • Uses crt;Var a: integer;BeginWriteln('Введите число:');readln(a);If a>0 then writeln('Ваше число в квадрате:',power(a,2));Else writeln('Ваше число в кубе:',power(a,3));End.
  • Добавить свой ответ

Войти через Google

или

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

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

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