Напишите программу, которая определяет сколь раз входит в строку данное слово.
Пример: чай стол чай печь стул дом чай
ответ: 3. паскаль
130
244
Ответы на вопрос:
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.
Объяснение:
на каком языке? (В ответе паскаль)
Популярно: Информатика
-
фскорбин16.02.2022 18:38
-
peterick2225.04.2020 18:37
-
aidaXdXd18.08.2022 19:35
-
KristinkaOvchin07.06.2020 10:18
-
Ангелинка0205200305.05.2020 15:17
-
kozinasofia200608.06.2020 00:17
-
Evloevckuú12.07.2022 00:34
-
фуад0503.05.2022 17:45
-
кисуня1726.01.2020 07:22
-
57Nika5731.03.2023 04:21