1)Скорость передачи на далекие растояния!
2)Быстрая передача сообщения!
3)Собеседник может сразу ответить!
5*2=10, 10-3=7, 7*2=14, 14-3=11
Команда 2121
Вот лови решение надеюсь помог
При алфавитном подходе рассматривается не содержание текста, а его размер.
Зная количество символов в алфавите (это его мощность N), определяем информационный вес i алфавита в битах,используя формулу 2^i=N , затем по формуле J=K*i определяем информационный объем текста (количество информации) K-количество символов в тексте
Например, текст составлен на современном компьютере (русский алфавит -прописные и строчные, английский алфавит-загл и прописные, цифры, знаки) Всего 256 символов Значит мощность алфавита N=256 Информационный вес символа i получаем из равенства 2^i=256 i=8 бит (2^i=N)
Считаем количество символов К текста, включая пробелы и по формуле считаем J- информационный объем (получаем в битах) Если необходимо полученный результат переводим в более крупные единицы.
1) Var a, b,i:integer ;
Begin
Write('a=') ;read(a) ;writeln;
Write('b=') ;read(b) ;writeln;
If b-a>0 then write(' Колво целых чисел ', b-a-1)
Else If b-a=0 then write (' Колво целых чисел ', 0)
Else write(' неверные данные') ;writeln;
For i:=b-1 downto a+1 do begin
Write(' ', i) ;
End;
End.
2)Var i:Integer ;
F:array [1..30]of Integer ;
Begin
F[1]:=1;f[2]:=2;
Write(' ', f[1],' ', f[2]);
For i:=3 to 30 do begin
F[i] :=f[i-1]+f[i-2];write(' ', f[i]) ;
End;
End.