Вопрос школьника по предмету Информатика
Определить, сколько раз в тексте встречается заданное слово. Написать программу, Паскаль
Ответ учителя по предмету Информатика
var
s, sl, sc: string;
i, k: integer;
begin
write(‘Введите текст ‘);
readln(s);
write(‘Введите слово ‘);
readln(sl);
s:=’ ‘+s+’ ‘;
sl:=’ ‘+sl+’ ‘;
for i := 1 to length(s) — length(sl) + 1 do
begin
sc := copy(s, i, length(sl));
if sc = sl then inc(k);
end;
if k = 0 then writeln(‘Не встречается’)
else writeln(‘Встречается ‘, k, ‘ раз’);
end.
Похожие вопросы от пользователей
плотность-дуб сухой=0,8*10 в кубе кг/м в кубе
9cos2x+3cosx-1=0
Вот вопросы:
Какова тема и мысль произведения?
Где и когда происходят изображенные в нем события?
Какие места в книге произвели на вас наибольшие впечатления?
Кто из героев особенно понравился?Почему?
Каков язык книги?
Чем обогатила вас книга?Над какими вопросами вас заставила задуматься ?
Помогли ли вам иллюстрации лучше понять книгу?
СПАСИБО,ЗАРАНЕЕ!!!!!!!