Cod sursa(job #211369)

Utilizator ktalyn93Catalin ktalyn93 Data 1 octombrie 2008 21:10:33
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.63 kb
program cifra;
var t,i,j,k,s,p:integer;
    a:array[1..100] of integer;
    f,g:text;
begin
     assign(f,'cifre.in');
     reset(f);
     assign(g,'cifre.out');
     rewrite(g);
     readln(f,t);
     for i:=1 to t do
         readln(f,a[i]);
     for i:=1 to t do
         begin
              s:=0;
              for j:=1 to a[i] do
                  begin
                       p:=1;
                       for k:=1 to j do
                           p:=p*j mod 10;
                       s:=s+p mod 10;
                  end;
              writeln(g,s mod 10);
         end;
     close(f);
     close(g);
end.