Можете подсказать , в чём тут ошибка? Program School; Var z, e, n, t, i: integer; Begin z:=0; e:=0; - id1831085820211230 от Oho9 30.12.2021 23:11

Question

Информатика: Можете подсказать , в чём тут ошибка? Program School; Var z, e, n, t, i: integer; Begin z:=0; e:=0; Writeln ( Введите четырехзначное число ); Readln (t); For i:=1 to 1 do Begin ni=t Mod 10; ti=t Div 10; If n Mod 2 = 0 Then e:= e+1 else z:= z+1 end; Write ( Четные цифры , e, Нечетные цифры ,z); end.​​

Oho9 · Accepted Answer

Каждый из возможных символов должен использовать минимально возможное количество БИТ, следовательно :
25 букв + 10 цифр = 35 символов.
Для их хранения требуется узнать минимальное количество бит, (Степень цифры 2), поэтому:
( так как 2^5 < 35 < 2^6) получается, что использовать менее 6 бит нельзя. Таким образом, при 6 битах на символ, номер, содержащий 7 символов определяется:
7 * 6 = 42 бита.
Так как номер записывается минимально возможным количеством БАЙТ, то объём его в БИТАХ должен быть кратен 8 и в случае необходимости округляться в большую сторону.
Ближайшее число кратное 8 - это 48.
48 / 8 = 6 байт.
6 БАЙТ занимает 1 номер.
Таким образом, 6 * 80 = 480 байт.

Сошлось или же я что-то упустил?

MOGZ ответил