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

Question

Информатика

Митрофаний

12 июня, 03:31

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

+3

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