Тектс абранный на компьютере содержит 16 страниц на каждой странице по 32 строки, а в каждой строке по 50 символов. определите информационный объем текста, если один символ кодируется 8 битами.

16*32*50*8=204 800 - весь объем в битах. 204800/1024/8=25кб ответ: 25кб

Program prog; uses crt; var a: array[1..100] of integer;       k,s,i: integer;       begin clrscr; for i: =1 to 10 do begin   write('a[',i,'] = ');   readln(a[i]);   end;     for i: =1 to 10 do begin   if a[i] mod 3 = 0 then begin   s: =s+a[i]; k: =k+1;   end;     end;   writeln('количество чисел, кратных 3 = ', k);   writeln('сумма чисел, кратных 3 = ', s);     end.     

Program prog; uses crt; var a: array[1..10] of integer;       s,i,max, min: integer;       sr: real; begin clrscr; min: =a[1]; for i: =1 to 10 do begin   write('a[',i,'] = ');   readln(a[i]);   end;   for i: =1 to 10 do begin   s: =s+a[i];   if a[i]> max then max : = a[i];   if a[i]< min then min : = a[i];   end; sr: =s/10; writeln; writeln('сумма всех элементов массива s = ', s); writeln('среднее арифметическое sr = ', sr: 0: 1); writeln('max = ', max); writeln('min = ', min);     end.