您的位置:首页 > 其它

UVa OJ 10082-WERTYU

2011-01-14 20:17 260 查看
模拟:

{
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.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: