Program Program1;
var
i,n,m,b:integer;
s,s1:string;
Begin
write('Введите значение m: ');
readln(m);
write('Введите значение n: ');
readln(n);
write('Введите значение b: ');
readln(b);
str(b,s);
for i:=m to n do
begin
str(i,s1);
if pos(s,s1)=0 then writeln(i);
end;
end.
<span>Информационное сообщение объемом 300 бит содержит 100 символов. Какова мощность алфавита?<span> <span>Дано:Объем сообщения = 300 бит
текст состоит из 100 символов
Какова мощность алфавита?</span></span>Решение:1. Определим вес одного символа: 300 / 100 = 3 бита.2. Мощность алфавита определяем по формуле: 2 3 = 8.</span>
1 раз. Цикл repeat работает до тех пор, пока он не станет истинным, но выполнится один раз в любом случае. С самого начала условие истинное.
7 * 1024*8 бит обьем рисунка
7 * 1024*8/64/128 = 7 бит на цвет
2^7 = 128 цветов