Cod sursa(job #2796)
Utilizator | Data | 19 decembrie 2006 05:25:54 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.39 kb |
var n,i,j,c,x,t:integer;
f,g:text;
var a:array[1..30000]of integer;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do
begin
readln(f,n); c:=1;
for i:=1 to n do
begin
c:=c*n;
c:=c mod 10;
end;
x:=x+c;
x:=x mod 10;
writeln(g,x);
end;
close(f);close(G);
end.