1. Даны действительные числа x и y. Найти из них максимальное. 2. Даны два действительных числа. Вывести первое число, если оно больше второго, и оба числа, если это не так.

Question

Информатика

Сема

10 октября, 12:56

1. Даны действительные числа x и y. Найти из них максимальное. 2. Даны два действительных числа. Вывести первое число, если оно больше второго, и оба числа, если это не так.

+1

Ответы (1)

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

Яша · Answer 1

Var

x, y:real;

begin

Read (x, y) ;

if x>y then then Writeln (x) else Writeln (y) ; { задание 1 }

if x>y then Writeln (x) else Writeln (x,' ', y) { задание 2 }

end