Впаскале составьте программу, которая для произвольного натурального четырехзначного числа определяет сумму и произведение его цифр.

Var   n, a, b, c, d, s, p: integer; begin   write('введите натуральное четырехзначное число: ');   readln(n);   if (n > 9999) or (n < 1000) then writeln('число должно быть четырехзначным')   else begin       a : = n div 1000; d : = n mod 10; n : = (n div 10) mod 100;       b : = n div 10; c : = n mod 10;       s : = a + b + c + d;       p : = a * b * c * d;       writeln('сумма цифр равна ', s, ', а их произведение равно ', p)   end end. тестовое решение: введите натуральное четырехзначное число: 2345 сумма цифр равна 14, а их произведение равно 120

1.алфави́т (греч. ἀλφάβητος), также а́збука, — форма письменности, основанная на стандартном наборе знаков. 2.мощность алфавита - это количество символов, из которых состоит алфавит. например, мощность алфавита - 33 символа. 3.по формуле.. 4.каждый символ может иметь 64 значения,то есть ,то на каждый символ выделяется 6 бит(от 0 до 63,всего 64 варианта).всего символов- 100. значит все нужно 6 *100=600бит=75байт. 5.один символ (включая пробел) = 1 байт перевод в байты - 3.5 кб * 1024 байт = 3584 байт количество символов - 3584 6.в первом тексте информационный объем одного символа состовляет: n=2^i 32=2^5 i=5 бит во втором тексте: 64=2^6 i=6 значит,в 1,2 раза (6: 5=1,2)

V=k*i, где  v  – это информационный объём текстового сообщения;   k  – количество символов в сообщении,  i  – информационный вес одного символа. значит, v=k*i=67 символов (с учётом пробелов и знаков препинания) * 16 бит= 1072 бит или 134 байт. и здесь у нас проблема. мой ответ не совпадает ни с одним из возможных вариантов. более-менее сходными с моим ответом являются варианты 2) 134 бит (у меня 134 байт) и 4) 1027 бит (у меня 1072 бит). и тут есть вероятными три пути развития событий: а) я допустил ошибку в вычислениях, б) вы допустили ошибку при написании вариантов ответа, в) ошибка кроется в самом . внимательно перечитайте , вдруг вы обнаружите, что случайно ошиблись.