Если говорить абстрактно, то в каждом пункте применимы списки
А список заданий
В список строк текста
С список букв и символов оглавления
D список уроков
но средне-обычно используют списки в случаях A и D
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('Введите последовательность целых чисел через пробел.');
var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).
Pairwise.Where(t -> t[0] * t[1] < 0).Count;
Println($'Последовательность меняет знак {n} раз(а).')
end.
begin
var n:=ReadInteger('n=');
var m:=(n div 1000) mod 10;
var p:=1;
while n>0 do
begin
p*=n mod 10;
n:=n div 10
end;
if (p mod 5 =0) and(p mod m<>0) then Print('Верно')
else Print('Неверно')
end.
Объем информации в письме народа x:
50 * log(2)16 = 50 * 4 = 200 бит
Объем информации в письме народа y:
40 * log(2)32 = 40 * 5 = 200 бит
Объемы информации в письмах равны
Хз
Незнаю как. ссори может на сайте каком то