Для записи сообщения использовался 64-ех символьный алфавит. каждая страница содержит 30 строк, все сообщение содержит 8775 байта информации и занимает 6 страниц. сколько символов в строке.?

Мощность алфавита 64 символа  =64 т.е. требуется 6 бит для кодирования 1 символа 8775 байт=70200 бит 70200/6=11700 кол-во символов в сообщении 11700/6=1950 кол-во символов на странице 1950/30=65 кол-во символов в строке

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

 

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.