Даны 3 числа найди их сумму произведения и выяснить что больше сумма или произведение

Question

Информатика

Натальюшка

25 февраля, 13:59

Даны 3 числа найди их сумму произведения и выяснить что больше сумма или произведение

+3

Ответы (1)

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

Борюха · Answer 1

Var a, b, s, p:integer;

begin

write ('a=') ;

readln (a) ;

write ('b=') ;

readln (b) ;

s:=a+b;

p:=a*b;

if s>p then

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

if p>s then

writeln ('Произведение больше суммы') ;

end.

На языке Паскаль.