1. сколько байт содержит 1/256 часть мегабайта? 2. какое минимальное количество бит потребуется для кодирования целых положительных чисел, меньших 60? 3. сколько символов содержит сообщение, записанное с 16-символьного алфавита, если объём его составил 1/512 часть мб? 4. информационное сообщение объёмом 3, 5 кб содержит 2048 символов. сколько символов содержит алфавит, при которого было записано это сообщение? 5. сколько байт составит сообщение из 384 символов 16-ти символьного алфавита?

1)4096
2)6
3)4096
4)16384
5)192

(Укр)

Анімацію в презентації можна запускати різними :

-Клацанням. Запуск анімації після клацання слайда.

-З попереднім. Запуск анімації одночасно з попередньою.

-Після попереднього. Запуск анімації одразу після попередньої.

-Тривалість. Визначення тривалості ефекту.

-Затримка. Визначення часу перед запуском ефекту.

(Рус)

Анимацию в презентации можно запускать разными :

-Клаца. Запуск анимации по щелчку слайда.

-С предыдущим. Запуск анимации одновременно с предыдущей.

-После предыдущего. Запуск анимации сразу после предыдущей.

-Продолжительность. Определение продолжительности эффекта.

-Задержка. Определение времени перед запуском эффекта.

Объяснение: думаю работает, так!

program AB;

var

   a: Integer;

   b: Integer;

   b2: Real;

begin

   writeln('a, b = '); readln(a,b);

   a := a * 2;

   b2 := b / 2;

   writeln('a*2 = ', a, ' b : 2 = ', b2);

end.

Объяснение:

Программа имеет 3 переменные: a, b (для входных данных), b2 (для результата деления, который потенциально может быть не целым числом, а потому требует типа Real).

Программа выводит приглашение на ввод, считывает два целых числа (считывает их именно как целые числа Integer, что от нас и требуется по задаче), затем умножает число a на 2, а для b "просто разделить на 2" нельзя, т.к. надо учесть возможность деление может дать и вовсе не целое число (как в примере), поэтому результат мы записываем в переменную вещественного типа Real с именем b2.

Дальше вывод.

БОНУС. В принципе, данная задача имеет альтернативное решение через конструкцию если...то (if...then), которая использует только целые значения, но, наверное, данное решение неуместно.

Тем не менее, я всё же приведу его. Если Вы пока не проходили if.. then, то можете вернуться, когда пройдёте.

Суть решения сводится к тому, что существует всего один возможный ненулевой остаток от деления числа на 2, который в десятичном виде всегда записывается точно как ".5").

Поэтому

program AB_alt;

var

    a: Integer;

    b: Integer;

    bmod: Integer;

begin

    writeln('a, b');

    a := a * 2;

    bmod := b mod 2;

    b := b div 2;

    writeln('a*2 = ', a, 'b : 2 = ', b);

    if (bmod <> 0) then write('.5');

end.

Вычисляется остаток от деления, затем выводится целая часть от деления b на 2, и затем, если имеется ненулевой остаток (для положительных чисел он равен 1, для отрицательных -1), но в целом это всегда добавляет просто добавляет к целой части запись ".5".

Данный метод иногда бывает уместен (дело в том, что поведение real'ов не всегда предсказуемо для человека, не всегда оптимально по ресурсозатратам и т.п.), но точно не в учебных программах.