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