uses crt;
const raz=[' ','.',',','?','!'];{/разделители слов, можно добавить}
var s,sl:string;
i,k:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
writeln('Слово:');
readln(sl);
k:=0;
for i:=1 to length(s) do{идем по строке}
if(s[i]=sl[1])and((s[i-1] in raz)or(i=1)){если символ равен первому символу слова
а перед ним разделитель или начало строки}
and((s[i+length(sl)] in raz)or(i+length(sl)=length(s))){и после слова разделитетль или конец строки}
and(copy(s,i,length(sl))=sl){и все буквы на интервале равны слову}
then k:=k+1;{считаем}
write('Слово ',sl,' встречается ',k,' рз.');
readln
end.
Объяснение:
на каком языке? (В ответе паскаль)
Поделитесь своими знаниями, ответьте на вопрос:
Какая из областей окна программы PowerPoint предназначена для добавления содержимого на слайды?
ответ 1:
В кодировке Unicode для хранения одного символа текста используется 2 байта (или 16 бит).
А кодировке ASCII один символ занимает 1 байт памяти, что соответствует 8 битам.
В исходном предложении "Один пуд – около 16,4 килограмм" 32 символа включая пробелы и знак дефиса.
Следовательно, для хранения такого сообщения в кодировке Unicode необходимо 32 * 2 байта = 64 байт = 64 * 8 = 512 бит.
Для хранения такого сообщения в кодировке ASCII необходимо 32 * 1 байт = 32 байт = 32 * 8 = 256 бит.
ответ 2:
250*45*63=708750 симв.
В кодировке ASCII один символ кодируется 1 байтом или 8 битами.
708750*8 бит=5670000 бит информации
t=s/v=5670000/33600=168.75 c