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

Question

Информатика

Максимиан

20 апреля, 23:53

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

+4

Ответы (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