Pagini recente » Cod sursa (job #1807826) | Cod sursa (job #1688871) | Cod sursa (job #1046847) | Cod sursa (job #1584509) | Cod sursa (job #1564261)
Program p1;
var s:array[1..30000]of ansistring;
x,x1,n,code,sum,sum1,sum2,t,i:integer;
f,g:text;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do begin x:=0;x1:=0;
readln(f,s[i]);
val(s[i][length(s[i])],x,code);
case x of
1:sum1:=1;
2:sum1:=5;
3:sum1:=2;
4:sum1:=8;
5:sum1:=3;
6:sum1:=9;
7:sum1:=2;
8:sum1:=8;
9:sum1:=7;
0:sum1:=0;
end;
if length(s[i])>1 then
val(s[i][length(s[i])-1],x1,code);
sum2:=7*x1;
sum:=sum1+sum2;
writeln(g,sum mod 10);
end;
close(g);
end.