Cod sursa(job #2742)
Utilizator | Ex_tr3m ex_tr3m | Data | 18 decembrie 2006 18:56:02 |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.57 kb |
program cifra;
var a,k,b:longint;
f,g:text;
function gasire(b:longint):byte;
var aux,i:longint;
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:longint):byte;
var j,s:longint;
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.