• Задача на паскале
    Дана строка s, определить сколько раз в ней встречается слово k.

Ответы 1

  • uses crt;

    var s,k:string;

    i,n:integer;

    begin

    read(s);

    read(k);

    for i:=1 to length(s) do

    if k=copy(s,i,length(k)) then n:=n+1;

    write(n);

    end.

    • Автор:

      vidalebvv
    • 7 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years