Cod sursa(job #363601)

Utilizator Gabbby93Gabbby93 Gabbby93 Data 13 noiembrie 2009 20:50:00
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
program yo;

var f,g:text;
    x,v:array[1..100] of integer;
    k,j,n,i:integer;



begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
read(f,n);
for i:=1 to n do
   read(f,x[i]);
for i:=1 to n do
   begin
   k:=1;
   for j:=1 to x[i] do
      k:=k*x[i];
   if i>1 then k:=k+v[i-1];
   v[i]:=k;
   end;
for i:=1 to n do
   writeln(g,v[i] mod 10);
close(f);
close(g);
end.