Cod sursa(job #52992)

Utilizator bogdan88Bogdan Popescu bogdan88 Data 20 aprilie 2007 16:30:19
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.55 kb
var fi,fo:text;
    s,n,i,nr:integer;
    ucif:byte;
function calc(x:longint):longint;
var j,pot,i:integer;
begin
     s:=0;
     for i:=1 to x do
         begin
              pot:=1;
              for j:=1 to i do
                  pot:=pot*i;
              s:=s+pot;
         end;
     ucif:=s mod 10;
     writeln(fo,ucif);
end;
begin
     assign(fi,'cifra.in'); reset(fi);
     assign(fo,'cifra.out'); rewrite(fo);
     readln(fi,n);
     for i:=1 to n do
         begin readln(fi,nr); calc(nr); end;
     close(fi);
     close(fo);
end.