Даны три числа:A, B, C. Найти их сумму и произведение, выяснить что больше сумма или произведение. Не на языке Паскаля ...

Question

Информатика

Зинич

30 октября, 19:15

Даны три числа:A, B, C. Найти их сумму и произведение, выяснить что больше сумма или произведение. Не на языке Паскаля ...

+3

Ответы (1)

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

Христюха · Answer 1

Var a, b, с, s, p:integer;

begin

write ('a=') ;

readln (a) ;

write ('b=') ;

readln (b) ;

write ('с=') ;

readln (с) ;

s:=a+b+с;

p:=a*b*с;

if s>p then

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

if p>s then

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

end.