Поиск по этому блогу

понедельник, 2 октября 2017 г.

Стрелки

(Время: 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.

Комментариев нет:

Отправить комментарий