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

Question

Информатика

Бландина

12 октября, 21:45

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

+5

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

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