Чему окажутся равны элементы этого массива после выполнения фрагмента программы? программа на pascalе for i: =0 to 9 do a[i]: =i+1 t: =a[0] for i: =0 to 9 do a[i-1]: =a[i] a[9]: =t

при прохождении первого цикла массив заполнится так:

а = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10

t=1

а во втором цикле в ошибка. цикл идет от 0 до 9

a(-1) существовать не может

n= 2^{i}

"n" - мощность алфавита.

информационный вес символа алфавита "i"

#1. n=2 в степени i

так как n=32, отсюда следует, что i=5 битам.

#2. по аналогии выше. только теперь n=8. а 8 - это 2 в степени 3.

то есть i=3. 3 бита.

#3. 64 символа. (смотреть 1). 2 в 6 степени.

#4. определим, сколько бит занимает все сообщение.

1/512 мбайт = 1024/512 = 2 кбайт. (1 мбайт = 1024 кбайт);

2 кбайт = 2 * 1024 = 2048 байт (1 кбайт = 1024 байт);

2048 байт = 2048 * 8 = 16384 бит.

текст состоит из 2048 символов ⇒ занимает 16384 бит ⇒ один символ занимает 16384 : 2048 = 8 бит = 1 байт.

если для хранения 1 символа алфавита используют 8 бит, согласно формуле (смотреть выше) 2 ^ 8 = 256 символов.

ответ: размер алфавита - 256 символов.

Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!

begin

  var былчет : = false;

  var число: integer;

  var счетчик : = 0;

  while true do

  begin

    read(число);

    if число = 0 then break;

    var введенонечетное : = число.isodd;

    if былчет and введенонечетное then inc(счетчик);

    былчет : = not введенонечетное

  end;

  println(счетчик)

end.

пример

-27 42 -19 -2 -42 12 45 39 -27 29 3 -17 -14 -25 -26 41 21 -13 -6 0

4