Выберите из приведённых фрагментов кода программы, написанной на языке Pascal, те, в которых представлены условные операторы. if X <> 0 then Y := 5 / X; Var C: Char; X: Real; i: Integer; case X of 0: WriteLn ('Ложь '); 1: WriteLn ('Истина '); End; if X >= 0 then WriteLn ('Число положительно ') else WriteLn ('Число отрицательно '); Begin WriteLn ('Введите число: '); ReadLn (X); End.

if X <> 0 then Y := 5 / X;

case X of 0: WriteLn ('Ложь '); 1: WriteLn ('Истина '); End;

if X >= 0 then WriteLn ('Число положительно ') else WriteLn ('Число отрицательно ');

в кинозале всего 16×32=512 мест. Сообщение о купленном билете однозначно определяет выбор одного из этих мест. Из уравнения 2 i = 512=29получаем: i=9 бит. Но эту же задачу можно решать иначе. Сообщение о номере ряда несет 4 бита информации, т.к. 24=16. Сообщение о номере места несет 5 бит информации, т.к. 25=32. В целом сообщение про ряд и место несет: 4+5=9 бит информации. Данный пример иллюстрирует выполнение закона активности информации (правило сложения): количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.

Задание 1:

ответ: 150

a = ((35 - 5) / 6) * (28 + ((35 - 5)/6) -3) = 5 * (25 + 5) = 150Задание 2:

ответ: a=9, b=86

b = ((7 * 11 + 4) div 10) + 6 = (81 div 10) + 6 = 86a = (86 mod 10) + 3 = 6 + 3 = 9Задание 3:

ответ: 12

a = 15 - 6 * 2 = 33>15 ? нет => c = 15 - 3 = 12Задание 4:

ответ: 173

for k:=7 to 14 do  s:=s+2*ks = 5 + 2*(7+8+9+10+11+12+13+14) = 173Задание 5А:НачалоВвод a, ba>b ?если да, то Вывод b*2если нет, то Вывод a*2КонецЗадание 5Б:var a, b: integer;begin    readln(a,b);    if a>b then writeln(b*2) else writeln(a*2);end.