Var a: integer;
begin
writeln('Введите порядковый номер: ');
readln(a);
case a of
1: writeln('Мать: 1.1.2017');
2: writeln('Отец: 2.2.2017');
3: writeln('Бабушка: 3.3.2017');
4: writeln('Дедушка: 4.4.2017');
else writeln('Неверно введен порядковый номер. Попробуйте еще раз.');
end;
end.
--------
Даты вводи те, которые тебе нужны. Порядковые номера также можно изменить по собственному усмотрению.
На слайде презентации может быть размещена текстовая информация, медиафайлы (фото, видео, звук), диаграммы, таблицы.
Делаем переменную count — счётчик
Для наивной реализации, можно проверить что число лежит в диапазоне [0o10; 0o77] или в десятичной [8; 63]
Потом проверить что a[i] mod 8 > a[i] div 8
Если число соответствует всем условиям, увеличиваем счётчик
Потом выводим значение count
При использовании 128-символьного алфавита для хранения одного символа требуется log(2)128 = 7 бит; при использовании 64-символьного - log(2)64 = 6 бит.
Объем информации в письме племени Мульти = 30*7 = 210 бит;
объем информации в письме племени Пульти = 60*6 = 360 бит.
360-210 = 150 бит
Ответ: письмо племени Пульти содержит на 150 бит информации больше, чем письмо племени Мульти.
Ответ 3) A[5,1]
1 2 3 4 5
6 7 8 9
10 11 12
13 14
<span>15</span>