Cod sursa(job #49128)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 5 aprilie 2007 13:11:59
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.83 kb
program NOD_SOFTWARE;
type vector = array [ 1..101] of integer;
var v:vector;
    s,i,j,n,m,p,q:integer;
    fin,fout:text;
{*----------------------------*}
procedure citire;
begin
     readln(fin,n);
     for i:=1 to n do
     begin
          readln(fin,v[i]);
     end;
end;
{*--------------MAIN----------*}
begin
     assign(fin,'cifra.in');
     assign(fout,'cifra.out');
     rewrite(fout);
     reset(fin);
     citire;
     for i:=1 to n do
     begin
          s:=0;
          for j:=1 to i do
          begin
               p:=v[j] mod 10;
               for q:=2 to v[j] do
               begin
                    p:=((p mod 10) * (v[j] mod 10)) mod 10;
               end;
               s:=s+p;
               s:=s mod 10;
          end;
          writeln(fout,s);
     end;
     close(fout);
end.