Чиновник,ежемесячно берет взятки в размере Х рублей. Величина Х непостоянная и колеблется...

Question

Чиновник,ежемесячно берет взятки в размере Х рублей. Величина Х непостоянная и колеблется от 0 до 150000 рублей. Автомобиль BMW 3 , который хочет купить на взятки чиновник, стоит 1700000 рублей.Напишите программу,которая вычислит,сколько месяцев потребуется чиновнику на сбор нужной суммы.Используя цикл с постусловием

Answer 1

Var
  x, i: integer;
 begin
  x := 0;
  i := 0;
  repeat
    i := i + 1;
    x := x + random(0, 150000);
  until x >= 1700000;
  write(i);
end.