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

Предмет: Информатика
Раздел: Программирование на языке Pascal, циклические конструкции

? Условие задачи:

Население города увеличивается на 3% каждый год. В 2016 году население составляло 65000.
Нужно написать программу, которая выведет на экран предсказанную численность населения в каждом году вплоть до 2026 года.

? Математическая модель:

Каждый год население увеличивается на 3%, то есть умножается на коэффициент:

1.03

Пусть P_0 = 65000 — население в 2016 году.
Тогда население в n-ом году:

P_n = P_{n-1} \cdot 1.03

? Решение на Pascal тремя способами:

✅ Способ 1: Цикл for

program PopulationGrowthFor;
var
  year: integer;
  population: real;
begin
  population := 65000;
  for year := 2016 to 2026 do
  begin
    writeln('Year: ', year, ' Population: ', round(population));
    population := population * 1.03;
  end;
end.

✅ Способ 2: Цикл while

program PopulationGrowthWhile;
var
  year: integer;
  population: real;
begin
  year := 2016;
  population := 65000;
  while year <= 2026 do
  begin
    writeln('Year: ', year, ' Population: ', round(population));
    population := population * 1.03;
    year := year + 1;
  end;
end.

✅ Способ 3: Цикл repeat...until

program PopulationGrowthRepeat;
var
  year: integer;
  population: real;
begin
  year := 2016;
  population := 65000;
  repeat
    writeln('Year: ', year, ' Population: ', round(population));
    population := population * 1.03;
    year := year + 1;
  until year > 2026;
end.

✅ Вывод:

Во всех трёх программах будет выведено население с 2016 по 2026 год, увеличивающееся ежегодно на 3%.
Каждый вариант использует разный тип цикла: for, while, repeat...until.

Если нужно, могу также привести результат вычислений по годам.