Cod sursa(job #305459)
Utilizator | Data | 17 aprilie 2009 14:48:18 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.37 kb |
var
nanu,alecu:text;
i,j,b,a,n,u,c:longint;
begin
assign(nanu,'cifra.in');
assign(alecu,'cifra.out');
reset(nanu);rewrite(alecu);
u:=0;
readln(nanu,a);
for b:=1 to a do begin
readln(nanu,n);
for i:=1 to n do begin
c:=1;
for j:=1 to i do begin
c:=c * i ;
c:= c mod 10 ;
end;
u:=u+c;
end;
u:=u mod 10;
writeln(alecu,u);
end;
close(nanu);
close(alecu);
end.