Даны вещественные ненулевые числа…

Question

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

Answer 1

36

eviam

19 февраля 2023

На паскале решить? 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: