Cod sursa(job #507880)

Utilizator iu.ciocoiuIulian iu.ciocoiu Data 7 decembrie 2010 01:02:34
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.56 kb
program cifra;
var t,s,i,j,x,aux,cop,k:longint;
    f,g:text;
begin
assign (f,'cifra.in'); reset (f);
assign (g,'cifra.out'); rewrite (g);
read (f,t);
for i:=1 to t do begin readln (f,x);
                       s:=0;
                       for j:=1 to x do begin cop:=j; aux:=1;
                                              for k:=1 to j do aux:=(aux*cop) mod 10;
                                              s:=s+aux;
                                        end;
                       writeln (g,s mod 10);
                 end;
close (f);
close (g);
end.