Cod sursa(job #115648)

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

{$APPTYPE CONSOLE}

uses
  SysUtils;

type vector = array [ 1..10001] of longint;
var v:vector;
    s,i,j,n,m,p,q:Longint;
    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.