ac1015.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 20 行

program tju1015;
var
  s:string;
  c:char;
begin
  repeat
    s:='';
    repeat
      read(c);
      case c of
        '@':s:='';
        '#':if s>'' then delete(s,length(s),1);
        else s:=s+c;
      end;
    until eoln;
    readln;
    writeln(s);
  until eof;
end.