Чиновник, ежемесячно берёт взятки в размере х рублей. - вопрос №5793621 от Sofi200011777 24.06.2021 17:28

Question

Информатика: Чиновник, ежемесячно берёт взятки в размере х рублей. величина х непостоянная и колеблется от 0 до 150000 рублей. x задаётся генератором псевдослучайных чисел. автомобиль bmw 3, который хочет купить на взятки чиновник, стоит 1700000 рублей. напишите программу, которая вычислит, сколько месяцев потребуется чиновнику на сбор нужной суммы.

Sofi200011777 · Answer

//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....