Предмет: Информатика,
автор: sophy1998
Даны вещественные ненулевые числа x, y. Если они имеют разные знаки, то отрицательное заменить его абсолютным значением. В противном случае оба числа заменить на число 100.
Ответы
Автор ответа:
0
на паскале решить?
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.
Похожие вопросы
Предмет: Математика,
автор: zoroevaajdaj426
Предмет: Информатика,
автор: Mozgovitka
Предмет: Математика,
автор: elizazhusupowa75
Предмет: Математика,
автор: Аноним