Cod sursa(job #291377)

Utilizator dmi96Calugaru Dumitru dmi96 Data 29 martie 2009 18:44:48
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
function fun(n:longint):longint;
var s,i,j,p:longint;
begin
s:=0;
for i:=1 to n do
begin
p:=1;
for j:=1 to i do
p:=(p*(i mod 10))mod 10;
s:=(s+p)mod 10;
end;
fun:=s;end;
var f,g:text;i,n,t:longint;
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);
writeln(g,fun(n));
end;
close(f);
close(g);
end.