Определите информационный объем такого текста: ядра - чистый изумруд:

Подсчитай количество символов в предложение. + считай пробелы, точки и.т.п. и это число умнож на 8, столько бит и будет

Const x0=1; xk=2; h1=0.1; y0=2; yk=3; h2=0.2; var x,y,z: real; i,j: integer; begin x: =1-h1; for i: =1 to round((xk-x0)/h1)+1 do   begin   x: =x+h1;   y: =2-h2;   for j: =1 to round((yk-y0)/h2)+1 do   begin   y: =y+h2;   z: =x*x+y+y;   writeln(x: 3: 1,y: 5: 1,z: 7: 3);   end;   end; end. результат: 1.0   2.0   5.000 1.0   2.2   5.400 1.0   2.4   5.800 1.0   2.6   6.200 1.0   2.8   6.600 1.0   3.0   7.000 1.1   2.0   5.210 2.0   2.6   9.200 2.0   2.8   9.600 2.0   3.0 10.000

Var n, m, k, i: integer; f: boolean; function s(a: integer): boolean; var i: integer; begin s: =false; for i: =2 to a div 2 do   if a mod i=0 then s: =true; end; begin write('n = '); readln(n); write('m = '); readln(m); if m< n then k: =m else k: =n; i: =1; f: =s(i); while (i< k) and not f do   begin   i: =i+1;   if (m mod i=0)and(n mod i=0) then f: =s(i);   end; if f then writeln('нод = ', i) else writeln('нет требуемого делителя'); end. пример: n = 42m = 105нод = 21