Cod sursa(job #375947)

Utilizator FLORINSTELISTUOprea Valeriu-Florin FLORINSTELISTU Data 20 decembrie 2009 14:25:21
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.52 kb
program p324;
var n,x:longint;f,g:text;
   v:array[1..60000]of longint;
function ucif(n:longint):longint;
var p,i,j,s,q:longint;
begin
  p:=0;   s:=0;q:=1;
    for i:=1 to n do begin
    p:=i;
     for j:=1 to i-1 do
     p:=(p mod 10)*i;
     s:=s+p mod 10;
     end;
     ucif:=s mod 10;  end;
begin
     assign(f,'cifra.in');reset(f);
     assign(g,'cifra.out');rewrite(g);
     readln(f,n);
      for x:=1 to n do readln(f,v[x]);
       for x:=1 to n do
     writeln(g,ucif(v[x]));close(f);close(g);
end.