| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1094
| Var C: Char; S: String; X: LongInt; Begin FillChar(S,SizeOf(S),' '); S[0]:=#80; X:=1; Repeat Read(C); If (C=#13) or (C=#10) then Continue; If C='>' then Inc(X); If C='<' then Dec(X); If (X<=0) or (X>80) then X:=1; If not (C in ['>','<']) then begin S[X]:=C; Inc(X); End; Until (EOF); Writeln(S); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 871 |