Определите значение целочисленных переменных a и b после выполнения фрагмента программы: a: =1819 b: =(a div 100)*10+9 a: =(10*b-a) mod 100

A=71 b=189 /////////////////////////////

Var a,b,c: byte; begin for a: = 1 to 9 do       for b: = a+1 to 9 do               for c: = b+1 to 9 do                       write(a,b,c,' ') end. var     p: real;     a: integer; begin p: =1; repeat read(a); if a mod 2 < > 0 then p: =p*a; until a = 0; writeln('p = ',p) end. var     n: integer; begin write('n = '); readln(n); for n: = 1 to n do       write(n*n,' ') end.

Const     n = 33; var     a: array[1..n] of integer;     i,c,p: integer; begin c: =0; p: =0; randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(' ',a[i]);       if a[i] mod 2 = 0 then c: =c+1;       if (a[i] mod 5 = 0)and(a[i] mod 10 < > 0) then p: =p+1       end; writeln; writeln('количество чётных чисел: ',c); writeln('количество чисел, оканчивающихся на 5: ',p); end.