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

timabro12 timabro12    1   19.05.2019 03:20    7

Ответы
денис9645 денис9645  12.06.2020 08:29
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика