Даны 3 числа.найдите наибольшее значение из их суммы и произведения
Даны 3 числа.найдите наибольшее значение из их суммы и произведения
Гость
Ответ(ы) на вопрос:
Гостьvar
a, b, c, p, s: integer;
begin
readln(a, b, c);
p := a * b * c;
s := a + b + c;
writeln('P = ', p);
writeln('S = ', s);
write('Max = ');
if s > p then writeln(s) else writeln(p);
end.
Не нашли ответ?
Похожие вопросы