Ответ:
#include <iostream>
using namespace std;
int main()
{
unsigned long p, pp;
int F, n, i;
setlocale(LC_ALL, "russian");
cout << "Население = ";
cin >> p;
cout << "Прирост = ";
cin >> F;
cout << "n = ";
cin >> n;
i = 0;
pp = p;
while (pp < p * n) {
pp += (int) pp / F;
i++;
}
cout << "\nЧерез " << i << " лет";
}
в общем виде должно вылгядеть так:
var имя_массива: array[диапазон] of тип_массива;
1.
var a1,an,d,n,i:integer;
begin
readln(a1,d);
readln(n);
an:=a1;
for i:=2 to n do an:=an+d;
writeln('an = ',an);
end.
2.
function f(a1,d,k:integer):integer;
begin
if k=1 then f:=a1 else f:=f(a1,d,k-1)+d;
end;
var a,r,n:integer;
begin
readln(a,r);
readln(n);
writeln('an = ',f(a,r,n));
end.
Пример:
3 2
5
<span>an = 11</span>
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadInteger.ToString.ToCharArray.Println(' ');
end.
<u>Пример</u>
123
1 2 3