Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.
       
                   

Оцени ответ