Скорость чтения учащегося составляет приблизительно 250 символов в минуту. приняв мощность используемого алфавита за 64 , определите, какой объём информации в килобайтах получит учащийся, если он будет непрерывно читать в течение 40 минут?

n = 2^i ; n - мощность алфавита, i-количество битов в одном символе.

64 = 2^6 ; один символ весит 6 бит.

250с/м*40м = 10000 символов за 40 минут.

10000*6=60000 бит.

60000/8 = 7500 байт / 1024 = 7.324кб.

Procedure four(n: integer; var a: a_type);   {процедура построения квадрата при n двойной четности: n=4,8,12,}  pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 var i,j,k: integer; p,l: integer; i1,j1,x,y: integer; begin l: =1; p: =n*n; for i: =1 to n do for j: =1 to n do begin a[i,j]: =l; inc(l) {l: =l+1} end; i: =2; while i< =n-2 do begin if i mod 4=0 then j: =4 else j: =2; while j< =n-2 do begin for i1: =0 to 1 do for j1: =0 to 1 do begin y: =i+i1; x: =j+j1; a[y,x]: =p-a[y,x]+1; end; j: =j+4; end; i: =i+2 end; k: =4; while k< =n-4 do begin a[1,k]: =p-a[1,k]+1; a[1,k+1]: =p-a[1,k+1]+1; a[n,k]: =p-a[n,k]+1; a[n,k+1]: =p-a[n,k+1]+1; a[k,1]: =p-a[k,1]+1; a[k+1,1]: =p-a[k+1,1]+1; a[k,n]: =p-a[k,n]+1; a[k+1,n]: =p-a[k+1,n]+1; k: =k+4 end; a[1,1]: =p-a[1,1]+1; a[n,n]: =p-a[n,n]+1; a[1,n]: =p-a[1,n]+1; a[n,1]: =p-a[n,1]+1; end;

Здесь нужно проанализировать, какое слово следует написать в зависимости от введенного числа. если число оканчивается на 0, 5, 6, 7, 8, 9, то нужно написать "лет". если число оканчивается на 1, то нужно написать "год". если число оканчивается на 2, 3, 4, то нужно написать "года". но! исключение составляют числа от 11, до 19, здесь всегда нужно писать "лет". поэтому в программе проверяются и само число n и последний разряд этого числа  x. программа: program z; var n,x: integer; begin readln(n);     {вводим число} x: =n mod 10;     {вычислим последний разряд числа} if (x=0) or ((n> 10) and (n< =19)) or (x> =5) then writeln(n,' лет') else if x=1 then writeln(n,' год') else if (x> 1)and(x< 5) then writeln(n,' года'); end.