Cod sursa(job #53983)
Utilizator | Data | 23 aprilie 2007 21:15:37 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.62 kb |
type vector=array[1..20]of byte;
const sum:vector=(1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4,0);
var n,rasp,t,i,nr,j,e:integer;
fi,fo:text;
s:string;
c:array[0..100]of byte;
begin
assign(fi,'cifra.in'); reset(fi);
assign(fo,'cifra.out'); rewrite(fo);
readln(fi,t);
for i:=1 to t do
begin
readln(fi,s);
c[0]:=0;
for j:=1 to length(s) do
val(s[j],c[j],e);
nr:=c[length(s)-1]*10+c[length(s)];
rasp:=sum[nr mod 20];
writeln(fo,rasp);
end;
close(fi);
close(fo);
end.