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

Question

Информатика

Петряха

9 августа, 14:48

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

+4

Ответы (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.