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

Question

Федорыч

26 сентября, 06:57

+2

Ответы (1)

Знаете ответ на вопрос?

Василинка · Answer 1

program ex1;

var x, y:real;

begin

readln (x, y) ;

if x>y then writeln ('x>y and x=', x) ;

if xx and y=', y)

else writeln ('x=y=', x) ;

end.