Вот здесь почитайте пожалуйста
//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.
Var
n:integer;
i,j,k:byte;
a:array[1..3] of byte;
begin
Write('Введите натуральное трехзначное число: ');
Read(n);
for i:=1 to 3 do
begin
a[i]:=n mod 10;
n:=n div 10
end;
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 3 do
if a[i]<>0 then Write(a[i],a[j],a[k],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное трехзначное число: 307
777 770 773 707 700 703 737 730 733 377 370 373 307 300 303 337 330 333
N=2^i, где N - мощность алфавита (кол-во символов, котррые в нём используются), i - информационный вес символа в битах
256 = 2^8 => i =8 бит
I (это не l, а заглавная i) - информационный объем, находящийся по формуле:
I = K × i, где K - кол-во символов сообщения
I = 4096 × 8 = 32768 бит
Переведём в килобайты:
32768 : 8 = 4096 байт
4096 ÷ 1024 = 4 КБ
Ответ: 4 кб
1. 3КБ = 3*1024 = 3072 байт
3КБ = 3*1024*8 = 24576 бит
2. <span>8192 бит </span>= <span>8192/8 = 1024 бай</span>т
8192 бит = <span>8192/8/1024 = 1 КБ
3. </span><span>3072 МБ = </span>3072/1024 = 3 ГБ
<span>3072 </span>МБ = 3072*1024 = 3145728 КБ