Pagini recente » Cod sursa (job #2971302) | Cod sursa (job #3162157) | Cod sursa (job #82419) | Cod sursa (job #491506) | Cod sursa (job #2721)
Cod sursa(job #2721)
program cifra;
var 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;
var j,s:integer;
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.