Два сообщения состоят из одинакового количества символов. первое записано с 1024-символьного алфавита, а второе – с 256-символьного алфавита. сравните, во сколько раз объем первого сообщения больше второго.

1024 = 2^10

256 = 2^8

следовательно делим 10 на 8 и получаем 1,25

ответ: объём первого сообщения больше второго в 1,25 раза

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end.