Из двух чисел выбрать наименьшее если оно отрицательное, то возвести в квадрат, в противном случае извлеч квадратный корень.

Question

Информатика

Станя

8 февраля, 07:08

Из двух чисел выбрать наименьшее если оно отрицательное, то возвести в квадрат, в противном случае извлеч квадратный корень.

+2

Ответы (1)

Знаете ответ?

Петяйка · Answer 1

Var

a, b, min:real;

begin

readln (a, b) ;

if a
begin

min:=a;

writeln ('a
end

else

begin

min:=b;

writeln ('b
end;

if min<0 then

writeln (sqr (min))

else

writeln (sqrt (min)) ;

end.