Коля ходил с товарищами в лес за грибами.когда он вернулся сестра говорит: - покажи,много ли грибов - id238726820210621 от Даша182005 21.06.2021 07:01

Question

Информатика: Коля ходил с товарищами в лес за грибами.когда он вернулся сестра говорит: - покажи,много ли грибов ты набрал? коля стал рассказвать: - набрали мы много. но потом оказалось,что 1/2 часть всех грибов не съедобна,1/8 часть грибов была изъедена червями - нам пришлось их выбросить.3/8 грибов мы сварили в котелке и съели. а то,что осталось,я принес домой. сестра подумала немного и говорит: - я знаю, ты принес напишите только ответ,! заранее ! а можете написать и решение.

Даша182005 · Accepted Answer

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 год

MOGZ ответил