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

Дан текст. Найти, сколько раз в тексте встречается подстрока, значение которой введено с клавиатуры.Нужен паскаль!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Задать свой вопрос
1 ответ
//FPC 2.6.4
var
  s, s1: string;
  i: integer;
begin
writeln ('Текст: ');
readln (s);
writeln ('Подстрока: ');
readln (s1);
i:=0;
while pos(s1, s)gt;0 do
begin
inc (i);
delete (s, pos(s1, s), length(s1));
end;
writeln (i);
readln;
end.
Бритин Руслан
а как лутчше проверить
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт