Пожалуйста, срочно!
За два часа до обеденного перерыва 40 бабушек встали в очередь за пенсией. Кассир обслуживает клиента в среднем за 1 минуту. Первая бабушка мучила вопросами кассира 9 минут 15 секунд. Каждая следующая бабушка, "мотая на ус" ответы, адрессованные предыдущим бабушкам, мучает кассира на 12 секунд меньше. Сколько бабушек успеет обслужить кассир до перерыва?
Ответы
Ответ дал:
0
всего 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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад