Cod sursa(job #119882)

Utilizator pif4infoPasc Claudiu pif4info Data 3 ianuarie 2008 16:35:23
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.65 kb
program cifra;
var v:array[1..1000]of byte;
    n,t,i:integer;
    f,g:TEXT;
    s:longint;

procedure suma;
var k,cif,j:integer;
begin
cif:=0;
 for j:=1 to i do
  begin
   for k:=1 to n do v[k]:=0;
    v[n]:=1;
   for k:=1 to j do
    begin
    v[n]:=v[n]*j;
     if v[n]>10 then  begin
                     v[n]:=v[n] mod 10;
                     v[n-1]:=v[n]div 10;
                     end;
    end;
   cif:=cif+v[n];
  end;
  writeln(g,cif mod 10);
end;

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);
   suma;
  end;
close(f);
close(g);
end.