模拟: { Author:wzx961008 Problem:UVa 10082-WERTYU Verdict:Accepted Language:PASCAL Run Time:0.004s Submission Date:2011-03-19 05:37:43 } const s:string='`1234567890-=QWERTYUIOP[]//ASDFGHJKL;''ZXCVBNM,./'; var i:longint; c:char; begin while not eof do begin read(c); i:=1; while (s[i]<>' ')and(s[i]<>c) do inc(i); if s[i]<>' ' then write(s[i-1]) else write(c); end; end.