Ввести число.Если оно положительное, возвести его в квадрат, иначе возвести его в куб
Ввести число.Если оно положительное, возвести его в квадрат, иначе возвести его в куб
Гость
Ответ(ы) на вопрос:
ГостьUses crt;
Var a: integer;
Begin
Writeln('Введите число:');readln(a);
If a>0 then writeln('Ваше число в квадрате:',power(a,2));
Else writeln('Ваше число в кубе:',power(a,3));
End.
Не нашли ответ?
Похожие вопросы