Даны вещественные ненулевые числа x, y. Если они имеют разные знаки, то отрицательное...

Question

Даны вещественные ненулевые числа x, y. Если они имеют разные знаки, то отрицательное заменить его абсолютным значением. В противном случае оба числа заменить на число 100.

Answer 1

на паскале решить?

 

var x,y:real;
begin
Writeln('Input x: ');
Readln(x);
Writeln('Input y: ');
Readln(y);
if ((x>0) and (y>0))or((x<0) and (y<0)) then<br>begin
x:=100;
y:=100;
end;
if ((x<0) and (y>0)) then
x:=Abs(x);
if ((x>0) and (y<0)) then<br>y:=Abs(y);
Writeln('Result: ');
Writeln('x=',x:5:2);
Writeln('y=',y:5:2);
readln;
end.