Burirdana 26 ноября 2019 в 11:11

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

Program pr1
var people,year:real;
begin
people := a;
year = 2014;
while year lt;= 2024 do begin
write ("Год: " + year + ", население: " + people);
year := year +1;
people := a * 1.05;
end;
end.
Для комментирования необходимо зарегистрироваться на сайте