Question

Постройте компьютерную модель в системе программирования Pascal ABC для решения следующей задачи.
Население некоторой страны - 81351097 человек .Естественный прирост за год - 200800 человек (смертность превышает рождаемость ).Миграционный прирост за год - 252000 человек .Какова будет приблизительная численность населения страны через 50 лет если динамика изменения численности населения сохраниться?

Answer 1

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

var

n, e, m, t, i, k: integer;

begin

n := 81351097; // начальное население страны

e := -200800; // естественный прирост населения за год

m := 252000; // миграционный прирост населения за год

t := 50; // срок для расчёта (лет)

k := n + t * (e + m);  // конечное население страны

Writeln('население будет равно ', k, ' (человек)');

end.