Врезультате опыта с подбрасыванием монеты получена информация объемом а) 1 байт; б) ½ бит; в) 2 байта; г) 1 бит.

1бит

Алгоритм такой: перемещаем чертежника по координатам  (-9; 2), (-3; 3), (0; 8), (3; 3), (9; 2), (5; -3), (6; -9), (0; -7), (-6; -9), (-5; -3), (-9; 2) и рисуем звезду. программа на pascalabc.net: uses drawman; const zvezda: array[1..10, 1..2] of integer = ((7, 13), (10, 18), (13, 13), (19, 12), (15, 7), (16, 1), (10, 3), (4, 1), (5, 7), (1, 12)); begin   field(20, 20);   topoint(1, 12);   pendown;   for var i : = 1 to 10 do     topoint(zvezda[i, 1], zvezda[i, 2]); end.

S: =1; - переменной s присваивается начальное значение 1 for i : = 10 to 99 do   - начало цикла с параметром, i - параметр цикла, 10 - начальное значение параметра, 99 - конечное значение параметра. т.е. цикл будет выполняться 90 раз, параметр i будет принимать последовательно значения 10, 11, 12, 99.if (i mod 13 = 0) and (i mod 2 < > 0) then   - условный оператор. в условии используется операция mod - определение остатка от целочисленного деления. (i mod 13 = 0) - это условие будет выполняться для чисел, которые делятся на 13 без остатка; (i mod 2 < > 0) - это условие будет выполняться для чисел, которые делятся на 2 с остатком (это нечетные числа). таким образом, условие  (i mod 13 = 0) and (i mod 2 < > 0) будет иметь значение true для нечетных чисел, которые делятся на 13 без остатка (это  13, 39, 65, 91).программа в целом вычисляет произведение нечетных  чисел, которые  делятся на 13 без остатка.  (в программе есть ошибка. тип переменной s  должен быть integer.)