Составить программу дано трехзначное число. верно ли, что: 1. сумма его цифр-число четное 2. цифры в числе располодены по возрастанию 3. в запись числа входит цифра 5 4. оно оканчивается на цифру 7

Var a,z,s,i,m: integer; begin readln(a); s: =0; z: =a; for i: =1 to 3 do begin s: =s+(z mod 10); z: =z div 10; end; if s mod 2 = 0 then writeln('1. верно')else writeln('1. неверно'); z: =a; s: =z mod 10; z: =z div 10; m: =0; for i: =1 to 2 do begin if s < z mod 10 then begin m: =1; break;   end else begin s: =z div 10; z: =z div 10; end; end; if m = 0 then writeln('2. верно')else writeln('2. неверно'); z: =a; m: =0; for i: =1 to 3 do begin if z mod 10 = 5 then begin m: =1; break; end else begin z: =z div 10; end; end; if m = 1 then writeln('3. верно')else writeln('3. неверно'); if a mod 10=7 then writeln('4. верно')else writeln('4. неверно'); end.

Мощность алфавита = 8.

Объяснение:

На заметку: Мощность алфавита — количество символов в нём.

По условию известно, что в каждой строке сообщения (их всего три) по 256 символов. Узнаем общее количество символов, умножив 3 на 256:

1) 3 * 256 = 768 — символов во всём сообщении.

Также нам известен общий информационный объём всего сообщения, равный 0,25 килобайта. Чтобы счёт в будущем был более удобным, можно перевести килобайты в биты, умножив 0,25 на 1024 (1 килобайт равен 1024 байтам) на 8 (1 байт равен 8 битам):

2) 0,25 * 1024 * 8 = 2048 — вес всего сообщения в битах.

Далее, чтобы узнать вес одного символа, достаточно просто поделить общий вес сообщения на количество символов, то есть 2048 на 768:

3) 2048 : 768 = 2,(6) ≈ 3 — вес одного символа.

В последнем шаге нужно воспользоваться формулой количества возможных событий и количества информации (N = 2^i, где N — количество возможных событий (в данном случае — мощность алфавита), а i — вес одного символа).

4) N = 2^3 = 8.