Предмет: Информатика, автор: Milo2001

Помогите!!! Пожалуйста!!!!
Составьте программу, решающую следующую задачу: Дано число n. Если оно неотрицательно, то возвести его в квадрат, а если отрицательно, то в третью степень.

Ответы

Автор ответа: larinfo
0

program zadacha;

var

n,x:real;

begin

writeln('vvedite chislo');

readln(n);

if n>0 then x:=sqr(n);

if n<0 then x:=sqr(n)*n;

writeln(x);

end.

Приложения:
Похожие вопросы
Предмет: Биология, автор: Nikoly2010