Pagini recente » Cod sursa (job #791350) | Cod sursa (job #615540) | Istoria paginii utilizator/deliaelena13 | Cod sursa (job #281696) | Cod sursa (job #193150)
Cod sursa(job #193150)
program cifra;
var
f,g:text;
n,u,t,i,nr,j:longint;
err:integer;
s:string;
begin
assign(f,'cifra.in'); reset(f);
readln(f,t);
assign(g,'cifra.out'); rewrite(g);
for i:=1 to t do
begin
readln(f,s);s:=copy(s,length(s)-2,3);
val(s,n,err);
u:=0;
nr:=n div 10;
if nr > 0 then begin
if nr mod 4=0 then u:=1
else if nr mod 4 =1 then u:=7
else if nr mod 4=2 then u:=9
else u:=3; end;
nr:=n mod 10;
for j:=1 to nr do
if j=2 then begin
if j mod 4=2 then u:=u+4
else u:=u+6;
end
else if j=3 then begin
if j mod 4=1 then u:=u+3
else u:=u+7
end
else if j=4 then u:=u+6
else if j=7 then begin
if j mod 4=1 then u:=u+7
else u:=u+3
end
else if j=8 then begin
if j mod 4=2 then u:=u+4
else u:=u+6
end
else u:=u+j;
writeln(g,u mod 10);
end;
close(f); close(g);
end.