program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.
Ответ дал: Гость
x - информационный вес одного символа
n - мощность алфавита (кол-во символов)
размер содержащейся в тексте информации находим по формуле:
k - кол-во символов в тексте
амазонка
- один символ несет 8 битов (1 байт)
- байт в письме амазонки
омега:
один символ несет 7 битов
байт в письме омеги
Ответ дал: Гость
сочинение о мини ноутбуках, : однажди родители подарили мне нетбук я так радовался(лас,) я кажды день сидел за ним и он мне ноавился. но однажды я пролил на него воду я думал всё больше не будет у меня нетбука ,я растроился. мама сказала какой ты не уклюжий и так далее
Ответ дал: Гость
Писать иероглифы красиво и уметь писать их кистью с чернилами
Популярные вопросы