Население увеличивается на 5 процентов ежегодно, в текущем году оно составляет 40000 человек. чему оно будет равняться через 3 года.

Pascal var    k,p : real;     i : integer;   begin  k : = 40000;   p : = 1.05;     for i : = 1 to 3 do      k : = k *p;     writeln (k: 3: 2);     end.

Var a,b,c,t: integer; begin   read(a,b,c);   writeln('a': 4,'b': 4,'c': 4);   writeln(a: 4,b: 4,c: 4);   t: =a;   writeln(a: 4,b: 4,c: 4);   a: =c;   writeln(a: 4,b: 4,c: 4);   c: =b;   writeln(a: 4,b: 4,c: 4);   b: =t;   writeln(a: 4,b: 4,c: 4); end.

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.