Задание:
Даны вещественные ненулевые числа x, y. Если они имеют разные знаки, то отрицательное заменить его абсолютным значением. В противном случае оба числазаменить на число 100.
Решение:
На паскале решить? var x,y: real; beginWriteln ('Input x: '); Readln (x); Writeln ('Input y: '); Readln (y); if (x>0) and (y>0) or (x<0) and (y<0) thenbeginx: =100; y: =100; end; if (x<0) and (y>0) thenx: =Abs (x); if (x>0) and (y<0) theny: =Abs (y); Writeln ('Result: '); Writeln ('x=',x: 5:2); Writeln ('y=',y: 5:2); readln; end.
Знаете другой ответ?