第一问答网»论坛 › 中问网 › 问答 › USACO中1.2第三题谁会？PASCAL

USACO中1.2第三题谁会？PASCAL

11 |

2 | 2009-8-11 22:08:41 | 显示全部楼层 |阅读模式

{ID: PROG: namenumLANG: PASCAL}Program namenum;vars1,s2,s3:string;h:boolean;i:integer;dic:text;function Tn(S:string):string;var t:byte;begint:=ord(s[1]);if t > 81 then dec(t);t:=(t-65) div 3 + 2;str(t,tn);end;beginassign(dic,'dict.txt');reset(dic);assign(input,'na...

使用道具举报