С клавиатуры вводится число n под корнем. Если это число больше нуля, то найти его квадратные корни. Если число отрицательное, то возвести его в квадрат

Question

Информатика

Митрюша

2 апреля, 00:19

С клавиатуры вводится число n под корнем. Если это число больше нуля, то найти его квадратные корни. Если число отрицательное, то возвести его в квадрат

+1

Ответы (1)

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

Флориан · Answer 1

Var n:real;

begin

writeln ('n = ') ;

readln (n) ;

if n>0 then writeln ('sqrt (n) = ', sqrt (n)) ;

if n<0 then writeln ('n^2=', sqr (n)) ;

readln;

end.