Question

Пожалуйста, срочно!

За два часа до обеденного перерыва 40 бабушек встали в очередь за пенсией. Кассир обслуживает клиента в среднем за 1 минуту. Первая бабушка мучила вопросами кассира 9 минут 15 секунд. Каждая следующая бабушка, "мотая на ус" ответы, адрессованные предыдущим бабушкам, мучает кассира на 12 секунд меньше. Сколько бабушек успеет обслужить кассир до перерыва?

Answer 1

всего 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.