Даны два числа возвести в квадрат отрицательные извлечь корень квадратный из положительных.

Question

Генюша

7 января, 07:48

+5

Ответы (1)

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

Юлюся · Answer 1

Var x, y:real;

begin

read (x, y) ;

if x<0 then x:=x*x else x:=sqrt (x) ;

if y<0 then y:=y*y else y:=sqrt (y) ;

write (x,' ', y) ;

end.