Cod sursa(job #134200)

Utilizator alexu128Rosu Alexandru alexu128 Data 10 februarie 2008 20:58:45
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
var i,n,s,p,t,j,x,pu:integer; f,f2:text;  v:array[1..100] of integer;
begin
     assign(f,'cifra.in');
     reset(f);
     readln(f,p);
     FOR i:=1 to p DO
     readln(f,v[i]);
     close(f);
     assign(f2,'cifra.out');
     rewrite(f2);
     FOR i:=1 to p DO
     begin
     s:=0;
     FOR j:=1 to v[i] DO
     begin
     pu:=1;
     FOR x:=1 to j DO
     pu:=(pu*j) mod 10;
     s:=(s+pu) mod 10;
     end;
     writeln(f2,s);
     end;
     close(f2);


end.