Даны два действительных числа x y определить что больше сумма или произведение этих чисел. запишите программу

Question

Информатика: Даны два действительных числа x y определить что больше сумма или произведение этих чисел. запишите программу

annarom1108 · Answer

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

var (a, b) := ReadReal2;

var d := a + b - a * b;

if d < 0 then Println('Произведение больше суммы')

else

if d = 0 then Println('Произведение равно сумме')

else Println('Сумма больше произведения')

end.