bool переменная может принимать значения true и false - правда и не правда.
Логический тип данных нужен, чтобы программировать различные альтернативные действия.
результат сравнения - bool
Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
begin
y:=x mod 10;
z:=x div 10;
while z>0 do
begin
if (z mod 10)=y then f:=1;
z:=z div 10;
end;
x:=x div 10;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
<span>end.
Если использовать строковые ф-ии, то программа будет проще:
var
i,k,f:integer;
s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
begin
t:=copy(s,i+1,k-i+1);
if pos(s[i],t)>=1 then f:=1;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
end.</span>
То средние значение от B3 до B8 поделим на 2
240\6=40 это ответ выполненный после твоей формулы
Лукас мне:3
9) I=650 бит
K=130 символов
i=I/K
i=650/130=5 бит
N=2^i
N=2^5=32 - мощность алфавита
Ответ:32
11)I=375 байтов=3000 бит
K=500 символов
i=I/K
i=3000/500=6 бит
N=2^i
N=2^6=64 - мощность алфавита
Ответ:6 бит и 64 символа
12)N=64
N=2^i
i=6 бит
K=3*40*60=7200 символов
I=K*i
I=7200*6=43 200 бит=5400 байт
Ответ:5400 байт
13)I=9000 байт=72 000 бит
K=6*40*60=14 400 символов
i=I/K
i=72 000/14 400=5 бит
N=2^i
N=2^5=32 - мощность алфавита
Ответ:5 бит и 32 символа
14)i=7 бит (берем 7, так как мощность алфавита у нас равняется 100, и если мы возьмем 6, то этого уже будет недостаточно)
K=8192
I=K*i
I=8192*7=57344 Бита =7168 Байта=7 Кбайта
Ответ: 7 Кбайт
15)N=32
N=2^i
i=5 бит
K(1)=256
I(1)=256*5=1280 бит=160 байт - кол-во информации на 1 носителе
K(2)=256*512=131 072
I(2)=131 072*5=655 360 бит=82 920 байт=80 Кбайт - кол-во информации во всем своде законов
Ответ:160 байт и 80 Кбайт
1. (1кг)___( ? )
2. (2кг)___( ? )
3. (1кг + 2кг)___( ? )
4. (4кг)___( ? )
5. (4кг + 1кг)___( ? )
6. (4кг + 2кг)___( ? )
7. (4кг + 2кг + 1кг)___( ? )
Ответ: на весах можно взвесить любой целый вес от 1 до 7.