Чему будет равно значение переменной s? var i, s, p: integer; begin s : = 0; p : = 2; for i: = 1 to 3 do begin s : = s + i + p; p : = p + 3; end; end;

1) 2⁹ < 800 < 2¹⁰, поэтому для кодирования одного символа нужно 10 бит. при общем объеме 400 бит количество символов будет равно 400/10= 40 2) 2⁴ < 20 < 2⁵, поэтому для кодирования одного символа нужно 5 бит. одна строка потребует для кодирования 20×5=100 бит, страница - 20×100=2000 бит, книга - 20×2000 = 40 000 бит = 40 кбит 3) 6 кбайт = 6×1024 = 6144 байт = 6144×8 = 49 152 бит для кодирования одного символа нужно 49 152/1536 = 32 бита. тогда мощность алфавита составит 2³² = 4 294 967 296 символов. бред какой-

Const   n=10; var   i,m,k: integer;   a: array[1..n] of integer; begin   randomize;   write('исходный массив: ');   for i: =1 to n do begin a[i]: =random(90)+10; write(a[i],' ') end;   writeln;   writeln('введите целое число: '); read(m);   k: =0;   for i: =1 to n do       if a[i]< m then inc(k);   writeln('количество чисел, меньших ',m,' равно ',k) end. тестовое решение: исходный массив: 42 89 49 25 96 87 94 93 41 28 введите целое число: 50 количество чисел, меньших 50 равно 5