Стрелки

(Время: 1 сек. Память: 16 Мб Сложность: 20%)

Задана последовательность, состоящая только из символов ‘>’, ‘<’ и ‘-‘. Требуется найти количество стрел, которые спрятаны в этой последовательности. Стрелы – это подстроки вида ‘>>-->’ и ‘<--<<’.
Входные данные
В первой строке входного файла INPUT.TXT записана строка, состоящая из символов ‘>’, ‘<’ и ‘-‘ (без пробелов). Строка состоит не более, чем из 250 символов.
Выходные данные
В единственную строку выходного файла OUTPUT.TXT нужно вывести искомое количество стрелок.
Пример

№	INPUT.TXT	OUTPUT.TXT
1	<<<<>>--><--<<--<<>>>--><<<<<	4

Решение:

var  d,r,n:integer;

      s:string;     

     f,f1:text;

  begin

    assign(f,'input.txt');

    reset(f);

    read(f,s);

    close(f);

    d:=length(s);

    if d<5 then n:=0 else begin n:=0;

    for r:=1 to d-4 do

     if ((s[r]='>') and (s[r+1]='>') and (s[r+2]='-') and (s[r+3]='-') and (s[r+4]='>')) or ((s[r]='<') and (s[r+1]='-') and (s[r+2]='-') and (s[r+3]='<') and (s[r+4]='<')) then n:=n+1;

   end;

    assign(f1,'output.txt');

     rewrite(f1);

     write(f1,n);

   close(f1);

  end.