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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
