Pagini recente » Cod sursa (job #1907766) | Cod sursa (job #1778082) | Unlucky... | Cod sursa (job #610465) | Cod sursa (job #6095)
Cod sursa(job #6095)
program cifra;
var f,g:text;
n,t:longint;
procedure iofile;
var uc,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
readln(f,n);
uc:=((n div 10)*7) mod 10;
n:=n mod 10;
case n of
0:uc:=uc+0;
1:uc:=uc+1;
2:uc:=uc+5;
3:uc:=uc+2;
4:uc:=uc+8;
5:uc:=uc+3;
6:uc:=uc+9;
7:uc:=uc+2;
8:uc:=uc+8;
9:uc:=uc+7;
end;
uc:=uc mod 10;
writeln(g,uc);
end;
close(g);
end;
begin
iofile;
end.