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

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

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