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

Question

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

Comments

Эту задачу уже решали, пользуйтесь поиском

---

Поорал с формулировки.

Answer 1

//Pascal ABC.NET 3.1 сборка 1256

Var 
x,s,i:integer;
begin
randomize;
s:=0;
i:=0;
while s<1700000 do<br> begin
  inc(i);
  x:=random(150001);
  s:=s+x;
  writeln('Месяц:',i,', своровал:',x,', сумма на текущий момент:',s);
 end;
writeln('Res=',i);
end.

Comments

Отличное решение! )