За два часа до обеденного перерыва 40 бабушек встали в очередь за пенсией. кассир обслуживает клиента в среднем за 1 минуту. первая бабушка мучила вопросами кассира 9 минут 15 секунд. каждая следующая бабушка, "мотая на ус" ответы, адрессованные предыдущим бабушкам, мучает кассира на 12 секунд меньше. сколько бабушек успеет обслужить кассир до перерыва?
всего 15 бабушек
var
i, summ, c:integer;
begin
i := 1;
c := 555 - 12;
summ := 555;
while summ < 7200 do
begin
summ := Summ + c;
c := c - 12;
inc(i);
end;
writeln('Summ = ', summ);
writeln('n = ', i - 1);
end.