Даны два действительных числа…

Задание:

Даны два действительных числа х и у. Найти большее из этих чисел или установить, что числаравны

Решение:

program ex1; var x,y: real; beginreadln (x,y); if x>y then writeln ('x>y and x=',x); if xx and y=',y) else writeln ('x=y=',x); end.

Знаете другой ответ?

Отправить свой ответ