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

0 голосов
47 просмотров

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


Информатика (15 баллов) | 47 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(53.1k баллов)