Чиновник, ежемесячно берёт взятки в размере Х рублей. Величина Х непостоянная и колеблется от 0 до 150000 рублей. X задаётся генератором псевдослучайных чисел. Автомобиль BMW 3, который хочет купить на взятки чиновник, стоит 17...
Чиновник, ежемесячно берёт взятки в размере Х рублей. Величина Х непостоянная и колеблется от 0 до 150000 рублей. X задаётся генератором псевдослучайных чисел. Автомобиль BMW 3, который хочет купить на взятки чиновник, стоит 1700000 рублей. Напишите программу, которая вычислит, сколько месяцев потребуется чиновнику на сбор нужной суммы.
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1256
Var
x,s,i:integer;
begin
randomize;
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.
Не нашли ответ?
Похожие вопросы