Задать вопрос
27 апреля, 07:42

Посчитать сколько раз в текстовой строке S встретится подстрока S1. Разрешается завести только одну дополнительную строковую переменную.

Pascal.

+3
Ответы (1)
  1. 27 апреля, 09:07
    0
    Var s, s1, s2:string;

    k, l, p:integer;

    begin

    writeln ('Введите строку:') ;

    readln (s) ;

    writeln ('Введите подстроку:') ;

    readln (s1) ;

    l:=length (s1) ;

    s2:=s;

    k:=0;

    p:=pos (s1, s2) ;

    while p>0 do

    begin

    k:=k+1;

    delete (s2, p, l) ;

    p:=pos (s1, s2) ;

    end;

    writeln ('k = ', k) ;

    end.

    Пример:

    Введите строку:

    сколько раз в текстовой строке S встретится подстрока S1

    Введите подстроку:

    ст

    k = 4
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Посчитать сколько раз в текстовой строке S встретится подстрока S1. Разрешается завести только одну дополнительную строковую переменную. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы