Cod sursa(job #305459)

Utilizator flaviusoneFlavius flaviusone 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.