Pagini recente » Cod sursa (job #1274196) | Cod sursa (job #2281470) | Cod sursa (job #1088867) | Cod sursa (job #1685358) | Cod sursa (job #561764)
Cod sursa(job #561764)
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.