Нада число представить двоичными триадами 45107(8)
100 101 001 000 111, затем с<span>права налево разбить на двоичные тетрады по 4 разряда и записать алфавитом 16сс
0100 1010 0100 0111=4А47</span>
№1
var chislo, sum: integer;
begin
repeat
writeln('Введите трехзначное число:');
readln(chislo);
until chislo in [100..999];
while chislo > 0 do
begin
sum := sum + chislo mod 10;
chislo := chislo div 10;
end;
if sum mod 2 = 0 then
write('Число четное')
else write('Число нечетное');
readln;
<span>end.
</span>
№2
var factorial: longint; chislo, i: byte;
begin
chislo := 5;
factorial := 1;
for i := 2 to chislo do
factorial := factorial * i;
writeln('5! = ', factorial);
<span>end.</span>
var
i: <em>integer</em>;
begin
for k: <em>byte</em> := 0 to 10 do
i += round(power(2, k));
writeln(i);
<span>end.</span>
ADBC216<span> = </span>711<span>618
</span>AD3416<span> = 44</span><span>340
</span>2F6516<span> = 12</span><span>133</span>
<span>1. "в одном килограмме 1000 грамм" - считая пробелы в этом предложении 29 символов - следовательно предложение вест 29 байт
2. 35-10=25 значений, 25 лежит в рамках от 17 до 32, следовательно одно значение будет весить 5 бит. так как 2^5=32. было 27 измерений - 5*27=135. Ответ : объем всех результатов - 135 бит
3. Одна лампа равна одному биту, так как можно представить, что включено - 1, выключено - 0.
аналагично со второй задачей 200 лежит в рамках от 128(2 в седьмой степени) до 256(два в восьмой степени), значит для 200 разных сигналов потребуется 8 ламп</span>