Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ:
Население увеличивается на 5% ежегодно. В 2014 численность население составила а человек. Спрогнозируйте численность в каждом году, вплоть до 2024.

Answer 1

program pr1
var people,year:real;
begin
people := a;
year = 2014;
while year <= 2024 do begin
write ("Год: " + year + ", население: " + people);
year := year +1;
people := a * 1.05;
end;
end.

Answer 2

спасибо огромнейшее

Answer 3

Я обновил решение, посмотрите, пожалуйста, было неверно.

Answer 4

ок