Заранее ^ ^ 1. сообщение содержит 768 символов. его объем 1.5 кбайт. какова мощность алфавита? 2. оцените, сколько школьных сочинений размером в две машинописные страницы( в одной строке 40 строк по 50 символов в каждой строке) можно уместить на гибком диске емкостью 1.44 мб?

1. чтобы узнать "мощность алфавита" надо узнать сначала сколькими битами кодируется один символ. 1,5  кбайт переведем в байты 1,5 * 1024 = 1536 байт и переведем в биты 1536*8=12288 бит. разделим это  на количество символов в сообщении. 12288/768=16 бит. 2 в 16 степени это будет 512 символов т.е. мощность алфавита 512 символов.  2. если это продолжение первой то решение такое.  в одном сочинение 2 страницы по 40 строк и 50 символов каждой строке. находим сколько всего будет символов в одном сочинение  2*40*50=4000 символов. из первого пункта видно что 1 символ это 16 бит. найдем сколько занимает одно сочинение объема. 4000*16=128000 бит переведем в байты. 128000/8=8000 байт. объем дискеты 1,44 мбайт переведем в байты 1,44*1024*1024=1509949,44 разделим чтобы узнать сколько всего сочинений можно поместить на дискету 1509949,44/8000=188,74368 округлим и получим что на одну дискету уместится 188 сочинений.

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

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.