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

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

Задать свой вопрос
1 ответ
Uses crt;
Var a: integer;
Begin
Writeln('Введите число:');readln(a);
If agt;0 then writeln('Ваше число в квадрате:',power(a,2));
Else writeln('Ваше число в кубе:',power(a,3));



End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт