Pagini recente » Monitorul de evaluare | Cod sursa (job #3252425) | Statistici Maxim Anca Stefania (ancamaxim) | Rating Mihnea Morosan (Mmoro2006) | Cod sursa (job #2669)
Cod sursa(job #2669)
program cifra;
var s,x,j,a,k,b:longint;
f,g:text;
function gasire(b:word):byte;
var aux,i:integer;
begin
aux:=b;
for i:=1 to b-1 do begin
b:=b*aux;
b:=b mod 10;
end;{for}
gasire:=b;
end;
function ultima(b:integer):byte;
begin
s:=0;
for j:=1 to b do
s:=s+gasire(j);
s:=s mod 10;
ultima:=s;
end;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,a);
for k:=1 to a do begin
readln(f,b);
writeln(g,ultima(b));
end;
close(f);close(g);
end.