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

Question

Информатика

Аннуша

4 августа, 15:52

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

+2

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