Pagini recente » Cod sursa (job #2538400) | Cod sursa (job #1591410) | Cod sursa (job #219822) | Cod sursa (job #1923188) | Cod sursa (job #561765)
Cod sursa(job #561765)
program Cifra;
var aux,i,t,pc,uc:integer;
v : array[0..99] of integer;
f,g:text;
s:string;
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{main}
v[0]:=0;
for i:=1 to 99 do
v[i]:=(v[i-1] + putere(i mod 10,i)) mod 10;
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out');rewrite(g);
uc := 0;
readln(f,t);
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(g);
close(f);
end.