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

Question

Информатика

Меркул

28 октября, 19:35

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

+3

Ответы (1)

Знаете ответ на вопрос?

Сюша · Answer 1

Uses crt;

Var a: integer;

Begin

Writeln ('Введите число:') ; readln (a) ;

If a>0 then writeln ('Ваше число в квадрате:', power (a, 2)) ;

Else writeln ('Ваше число в кубе:', power (a, 3)) ;

End.