{ ID: anniel11 PROG: namenum LANG: PASCAL } Program namenum; var i,n,l:integer; s,s2:string; dicl:array[1..12] of integer; dic:array[1..12,1..2000] of integer; function transs(c:char):string; var trans:integer; begin case c of ‘A‘,‘B‘,‘C‘:trans:=2; ‘J‘,‘K‘,‘L‘:trans:=5; ‘T‘,‘U‘,‘V‘:trans:=8; ‘D‘,‘E‘,‘F‘:trans:=3; ‘M‘,‘N‘,‘O‘:trans:=6; ‘W‘,‘X‘,‘Y‘:trans:=9; ‘G‘,‘H‘,‘I‘:trans:=4; ‘P‘,‘R‘,‘S‘:trans:=7; end; str(trans,transs); end; begin assign(input,‘dict.txt‘); while not eof do begin readln(s); inc(dicl[length(s)]); t1:=0; s2:=‘‘; for i:=1 to length(s) do s2:=s2+transs(s[i]); val(s2,dic[length(s),dicl[length(s)]]); end; close(input); assign(input,‘namenum.in‘); assign(output,‘namebum.out‘); reset(input);rewrite(output); readln(n); str(n,s); l:=length(s); close(input);close(output); end.
时间: 2024-10-11 13:22:36