Если сумма двух различных чисел меньше единицы, то наименьшее заменить полусуммой, в противном случае меньшее заменить суммой.

Question

Информатика

Антонида

5 мая, 18:46

Если сумма двух различных чисел меньше единицы, то наименьшее заменить полусуммой, в противном случае меньшее заменить суммой.

+4

Ответы (1)

Знаешь ответ?

Илларион · Answer 1

Var a, b:real;

begin

write ('a, b: ');

readln (a, b);

writeln (a,' + ', b,' = ', a+b);

if a+b<1

then if a
else if a
writeln ('a = ', a,' b = ', b);

end.

Пример:

a, b: - 2.8 4.5

-2.8 + 4.5 = 1.7

a = 1.7 b = 4.5