Pagini recente » Cod sursa (job #1120116) | Cod sursa (job #2417515) | Cod sursa (job #874957) | Cod sursa (job #704870) | Cod sursa (job #524868)
Cod sursa(job #524868)
program ultimaCifra;
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
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.