PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1135
发信站: 哈工大紫丁香 (2002年03月15日21:14:20 星期五)
来  源: mtlab4.hit.edu.cn 

162692 13:17:05 15 Mar 2002
Bozhang,HIT,P.R.China 1135 Pascal Accepted 0.02 sec 49K

var
    j,k,n:integer;
    c:char;
begin
    readln(n); k:=0; j:=0;
    while not eof(input) do begin
        while eoln(input) and not eof(input) do readln;
        if eof(input) then break;
        read(c);
        if c='<' then k:=k+j else inc(j);
    end;
    writeln(k);
end.

--
FreeBSD has a large number of afficionados who are prepared  to flame 
anybody who  dares  suggest that it's not better than Linux.

Linux has a large number of afficionados who  are  prepared  to flame 
anybody who dares suggest that it's not better than FreeBSD.

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]