Для чого інженеру компютер
Var
x: real;
begin
readln(x);
if (x <= 0) then
x := 0;
writeln('y = ', x);
end.
------
Или так:
var
x: real;
begin
readln(x);
writeln('y = ', x > 0 ? x : 0);
end.
За одну минуту №1 съест 1/60 объекта "пицца", объект №2 - 1/30, №3 - 1/5. Вместе за одну минуту они съедят 1/60+1/30+1/5 = 1/60+2/60+12/60 = 15/60 = 1/4 объекта "пицца". Целиком объект будет съеден за время в 4 раза больше, т.е. за 4 минуты.
Ответ: 4 минуты.