Pagini recente » Diferente pentru implica-te/arhiva-educationala intre reviziile 106 si 105 | Cod sursa (job #723540) | Cod sursa (job #202043) | Istoria paginii runda/tot-oni-2012-ziua1-11-12 | Cod sursa (job #505791)
Cod sursa(job #505791)
var
f,g:text;
s:string;
pc,i,t,aux,uc:integer;
v:array[0..99] of integer;
function putere(a,n:integer):integer;
var
p:integer;
begin
p:=1;
while n<>0 do
begin
if n mod 2=1 then p:=(p*a) mod 10;
a:=a*a;
n:=n div 2;
end;
putere:=p;
end;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
v[0]:=0;
for i:=1 to 99 do
v[i]:=(v[i-1]+putere(i mod 10,i)) mod 10;
uc:=0;
for i:=1 to t do
begin
readln(f,s);
val(s[length(s)],uc,aux);
if length(s)>1 then
val(s[length(s)-1],pc,aux)
else
pc:=0;
writeln(g,v[pc*10+uc]);
end;
close(f);close(g);
end.