Pagini recente » Cod sursa (job #1224490) | Cod sursa (job #1100486) | Rating Tanasa Ana-Maria (ana_tanasa) | Cod sursa (job #2065902) | Cod sursa (job #262434)
Cod sursa(job #262434)
program jhvbjh;
var f,g:text;
s,a:string;
c,r,t,er,n,u,i,nr:integer;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
readln(f,t);
for i:=1 to t do
begin
readln(f,s);
n:=length(s);
if n<3 then begin
val(s,nr,er);
c:=nr div 20;
r:=nr mod 20
end
else begin
a:=copy(s,n-2,3);
val(a,nr,er);
c:=nr div 20;
r:=nr mod 20
end;
case r of
0:u:=0;
1:u:=1;
2:u:=5;
3:u:=2;
4:u:=8;
5:u:=3;
6:u:=9;
7:u:=2;
8:u:=8;
9:u:=7;
10:u:=7;
11:u:=8;
12:u:=4;
13:u:=7;
14:u:=3;
15:u:=8;
16:u:=4;
17:u:=1;
18:u:=5;
19:u:=4;
end;
u:=(4*c+u)mod 10;
writeln(g,u);
end;
close(f);
close(g);
end.