tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести текст.определить сколько
Ввести текст.определить сколько раз встречается заданное слово.паскаль
Дошик58694
1 30.06.2019 23:40
1
Ответы
qqwweerrqq
02.10.2020 16:42
Var
s,ss:string;
i,j,n,k:integer;
begin
Write('Введите текст: '); Readln(s);
s:=' '+s+' ';
Write('Введите искомое слово: '); Readln(ss);
ss:=' '+ss+' ';
n:=Length(ss);
i:=Pos(ss,s); k:=0;
if i>0 then
repeat
Inc(k);
Delete(s,i,n);
i:=Pos(ss,s);
until i=0;
Writeln('Слово встречается ',k,' раз(а)')
end.
Тестовое решение:
Введите текст: по дороге, по тропинке, по леску пойдем
Введите искомое слово: по
Слово встречается 3 раз(а)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Sonechka55
28.10.2020 07:38
На сколько видов делятся вирусы в зависимости от среды обитания?...
dieric
28.10.2020 07:38
Сколько трехзначных чисел можно записать с цифр 0, 2, 4 и 6 при условии, что в записи числа не должно быть одинаковых цифр? Выпишите все такие числа....
ELB2
11.03.2019 20:48
Яничего не понимаю. много . умоляю. нужно на листе записать ответы в цифрах в столбик....
твайнзайа
25.06.2019 14:50
На pascal: на вход программы значения элементов трех целочисленный массивов: , , (n =40). написать программу которая выводит на экран слово да , если отрицательный элемент в...
Ivan700076
25.06.2019 14:55
C#описать процедуру invertdigits(k), меняющую порядок следованияцифр целого положительного числа k на обратный (k — параметр целоготипа, являющийся одновременно входным и выходным)....
dasha098685674
29.04.2020 09:44
Выбери верный ответ. 1.png Find what: красивый Replace with: волк слово «красивый» заменится на слово «спорт» слово «волк» заменится на слово «спорт» слово «волк» заменится...
assasin098
29.04.2020 19:32
очень легкокак сделать 8 гранную звезду в черепахе...
ponomarjovakse
08.08.2019 13:00
Решить систему уравнений: {x^2-y^2=63 x+y=7...
sashabisaev030303
08.08.2019 13:00
Можете написать по сочинение на 100 слов my crazy day...
nurbo55555555551
08.08.2019 13:00
Выберите организмы – прокариоты 1. молочнокислые бактерии 2. эвглена 3. стафилококк 4. трутовик 5. бацилла 6. сфагнум...
Популярные вопросы
О котрій годині ночі сергій повинен був розбудити митька нужно на время ...
3
Написати твір-мініатюру: Твір Лесі Українки, який став для мене уроком життя...
1
Допишіть рівняння реакцій: 1) С2 Н5 OH + O2 - 2) CH3COOH + Zn - 3) CH3COOH...
2
Объясните почему дома даже богатых греков были небольшими и скромными, а...
3
Прискорення вільного падіння на поверхні Місяця дорівнює 1,6 Н кг. Яка сила...
2
Задача 3. Определите и обоснуйте влечет ли признание лица безвестно отсутствующим...
1
Якими особливостями своєї анатомії та фізіології людина завдячує першим приматам...
2
Висловлювання на тему бароко-це загальноеаропейский стиль...
3
Для ідеальної популяції характерне довільне схрещування, коли будь- які особини...
3
Определите и запишите основную мысль текста Текст 2 (1)Однажды, когда Ваня...
1
s,ss:string;
i,j,n,k:integer;
begin
Write('Введите текст: '); Readln(s);
s:=' '+s+' ';
Write('Введите искомое слово: '); Readln(ss);
ss:=' '+ss+' ';
n:=Length(ss);
i:=Pos(ss,s); k:=0;
if i>0 then
repeat
Inc(k);
Delete(s,i,n);
i:=Pos(ss,s);
until i=0;
Writeln('Слово встречается ',k,' раз(а)')
end.
Тестовое решение:
Введите текст: по дороге, по тропинке, по леску пойдем
Введите искомое слово: по
Слово встречается 3 раз(а)