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

Veronika509 Veronika509    1   31.07.2019 16:40    2

Ответы
ильзат12 ильзат12  03.10.2020 18:46
//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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика