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

Question

Информатика

Алевтинка

24 февраля, 08:32

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

+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