Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Написать код
Дан файл, содержащий текст на русском языке и некоторые
два слова. Определить, сколько раз они встречаются в тексте и
сколько из них — непосредственно друг за другом.

Ответ оставил Гость

Program primer;
var
  f: text;
  i, j, h: byte;
  l, k: smallint;
  s, s1, s2, m: string;
begin
assign(f, F.txt); {путь к файлу}
  reset(f);
   read(f, s);
  s := + s + ;
  close(f);
  writeln(укажите 2 слова через строчку);
  readln(s1);
  readln(s2);
  i := 0; j := 0; m := s; k := 1;
  while k <> 0 do
   begin
    k := pos( + s1 + , m);
    if (k <> 0) then inc(i);
    delete(m, 1, k + length(s1));
  end;
  k := 1; m := s;
  while k <> 0 do
   begin
    k := pos( + s2 + , m);
    if (k <> 0) then inc(j);
    delete(m, 1, k + length(s2));
  end;
  m := s; k := 1; h:=0;
  while (k <> 0) or (l <> 0) do
   begin 
    k := pos( + s1 + + s2 + , m);
    l := pos( + s2 + + s1 + , m);
    if (k <> 0) or (l <> 0) then inc(h);
     delete(m, 1, k + l + length(s2 + s1) + 1);
   end;
 writeln(количество слов соответствующих первому = , i);
 writeln(количество слов соответствующих второму = , j);   writeln(непосредственно друг за другом   х, h);
end.