Pagini recente » Cod sursa (job #683849) | Cod sursa (job #541487) | Cod sursa (job #555621) | Cod sursa (job #1377) | Cod sursa (job #921854)
Cod sursa(job #921854)
program cifra;
var f,g:text;
s:string;
t,c,n,nr,x,i:longint;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do
begin
c:=0;
readln(f,s);
n:=length(s);
if n>2 then nr:=100*(ord(s[n-2])-ord('0'))+10*(ord(s[n-1])-ord('0'))
+(ord(s[n])-ord('0'));
if n=2 then nr:=10*(ord(s[n-1])-ord('0'))+(ord(s[n])-ord('0'));
if n=1 then nr:=ord(s[n])-ord('0');
c:=c+(nr div 20)*4;
x:=nr mod 20;
case x of
1:c:=c+1;
2:c:=c+5;
3:c:=c+12;
4:c:=c+18;
5:c:=c+23;
6:c:=c+29;
7:c:=c+32;
8:c:=c+38;
9:c:=c+47;
10:c:=c+47;
11:c:=c+48;
12:c:=c+54;
13:c:=c+57;
14:c:=c+63;
15:c:=c+68;
16:c:=c+74;
17:c:=c+81;
18:c:=c+85;
19:c:=c+94;
end;
c:=c mod 10;
writeln(g,c);
end;
close(f); close(g);
end.