Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.