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

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

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

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

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
begin
x:=100;
y:=100;
end;
if ((x<0) and (y>0)) then
x:=Abs(x);
if ((x>0) and (y<0)) then
y:=Abs(y);
Writeln(Result: );
Writeln(x=,x:5:2);
Writeln(y=,y:5:2);
readln;
end.