Pagini recente » Cod sursa (job #2299823) | Cod sursa (job #306982) | Cod sursa (job #2139236) | Cod sursa (job #389031) | Cod sursa (job #524328)
Cod sursa(job #524328)
program cifra;
var
s:string;
pc,i,t,uc:integer;
v:array[0..99] of integer;
buf:array[1..1 shl 17] of char;
function putere(x,pow:integer):integer;
var
xc,t:integer;
begin
xc:=x;
for t:=2 to pow do
xc:=(xc*x) mod 10;
putere:=xc;
end;
begin
assign(input,'cifra.in');reset(input);
assign(output,'cifra.out');rewrite(output);
settextbuf(input,buf);
readln(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(s);
val(s[length(s)],uc,aux);
if length(s)>1 then
val(s[length(s)-1],pc)
else
pc:=0;
writeln(v[pc*10+uc]);
end;
close(input);close(output);
end.