Program z_1; var i : integer; s : string; begin s : = 1; for i : = 10 to 99 do if (i mod 13 = 0) and (i mod 2 < > 0) then s : = s * i; writeln('proizvedenie = ',s); readln; end. дана объяснить три строки: s : = 1; for i : = 10 to 99 do if (i mod 13 = 0) and (i mod 2 < > 0) then

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.)

В процессе преобразования дискретных сообщений в сигнал происходит кодирование сообщения. В широком смысле кодированием называется преобразование сообщений в сигнал. В узком смысле кодирование – это отображение дискретных сообщений сигналами в виде определенных сочетаний символов.