население города увеличивается на от 1.5% до 3.5% каждый год. Каждый же год, по ряду причин фиксируется убыль населения от 0.5% до 3%, 2016 году население составляло 347000.

Напишите программу, которая выведет на экран предсказываемую численость населения города в каждом году вплоть до 2025.

Определить в каком году был наибольшие прирост и убыль населения!

Вопрос школьника по предмету Информатика

население города увеличивается на от 1.5% до 3.5% каждый год. Каждый же год, по ряду причин фиксируется убыль населения от 0.5% до 3%, 2016 году население составляло 347000.

Напишите программу, которая выведет на экран предсказываемую численость населения города в каждом году вплоть до 2025.

Определить в каком году был наибольшие прирост и убыль населения!

Ответ учителя по предмету Информатика

var n,p,m,max1,max2,im1,im2,i:integer;

begin

Randomize;

n:=347000;

max1:=0; max2:=0;

for i:=2017 to 2025 do

 begin

 p:=round(n*(2*random+1.5)/100);

 m:=round(n*(2.5*random+0.5)/100);

 if p>max1 then begin max1:=p; im1:=i; end;

 if m>max2 then begin max2:=p; im2:=i; end;

 n:=n+p-m;

 writeln(i,’: n = ‘,n);

 end;

writeln(‘Наибольший прирост = ‘,max1,’, ‘,im1,’ год’);

writeln(‘Наибольшая убыль = ‘,max2,’, ‘,im2,’ год’);

end.

Пример:

2017: n = 345558

2018: n = 349922

2019: n = 353532

2020: n = 356979

2021: n = 364842

2022: n = 371614

2023: n = 381020

2024: n = 389903

2025: n = 388485

Наибольший прирост = 11702, 2023 год

Наибольшая убыль = 10701, 2020 год