Чтения посимвольно!PASCAL!

[darter96]

Помогите пзл! Задана последовательность, состоящая только из символов ‘>’, ‘<’ и ‘-‘. Требуется найти количество стрел, которые спрятаны в этой последовательности. Стрелы – это подстроки вида ‘>>-->’ и ‘<--<<’. Пример:


строка: <<<<>>--><--<<--<<>>>--><<<<<
Необходимые символы:>>-->’ и ‘<--<<’.
Ответ:4 (я подсчитал! Вот выделил эти символы)
Кто знает?

[Xcopy]

в паскале или на делфи написать?

[darter96]

В паскале!

[zmey31313]

program zadachka;
var
  s, s2 : string;
  k, c, i : integer;
  x1, x2 : integer;
begin
  writeln('Введите строку:');
  readln(s);
  s2 := s;
  c := length(s);
  k := 0;
  for i := 1 to c do
    begin
      x1 := 0;
      x2 := 0;
      x1 := pos('>>-->' , s);
      x2 := pos('<--<<' , s2);
    If x1 <> 0 then
      begin
        delete(s, 1, x1);
        k := k + 1;
      end;
    If x2 <> 0 then
      begin
        delete(s2, 1, x2);
        k := k + 1;
      end;
    end;
  writeln(k);
  readln();
end.

Вот так...