Определить значение целочисленной переменной а и b после выполнения фрагмента программы: a: =2599; b: =(a mod 10)*1000+26; a: =(b div 10) mod 100; 1) a=26, b=9026; 2) a=2, b=9026; 3) a=26, b=9926; 4) a=2, b=9926.

ответ 2)                                

это у нас прогрессия b1=1

q=1/2

bn=0,001> b1*q^(n-1)

0,001> q^(n-1)

0,001> 0,5^(n-1)

0,0005> 0,5^n

n=11

s11=b1*(1-q^n)/(1-q)=b1*(1-0,5^11)/0,5=1(0,999511718)/0,5=1,999023438

почти равно двум

program gh;

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

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.