Cod sursa(job #115661)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 16 decembrie 2007 19:34:26
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.69 kb
program cifra;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:int64;
    v,i,j,n,m,p,q:Longint;
    fin,fout:text;
{*--------------MAIN----------*}
begin
     assign(fin,'cifra.in');
     assign(fout,'cifra.out');
     rewrite(fout);
     reset(fin);
     readln(fin,n);
     for i:=1 to n do
     begin
          readln(fin,v);
          s:=0;
          for j:=1 to i do
          begin
               p:=j mod 10;
               for q:=2 to j do
               begin
                    p:=((p mod 10) * (j mod 10)) mod 10;
               end;
               s:=s+p;
               s:=s mod 10;
          end;
          writeln(fout,s);
     end;
     close(fout);
end.