13 (план производства). пищевкусовая фабрика может выпускать фруктовый сок с разливом в стеклянную, металлическую и полиэтиленовую тару. производительность линии по выпуску сока составляет: в стеклянной таре не более 10 т, в жестяной таре – не более 8 т, в полиэтиленовой таре – не более 5 т. известно, что себестоимость производства 1 т сока в стеклянной упаковке равна 16000 руб., в жестяной - 1 руб., в полиэтиленовой – 16000 руб. отпускная цена не зависит от тары и равна 4 руб. за 1 т.
определить программу выпуска сока в различной таре, которая обеспечивала бы фабрике максимальную прибыль.
var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение: