Cod sursa(job #702955)

Utilizator ignadariusIgna Darius ignadarius Data 2 martie 2012 10:15:06
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var i,s,p,n,j:integer;v:array[1..10000]of integer;f,g:text;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,n);
for i:=1 to n do
readln(f,v[i]);
for i:=1 to n do
begin
p:=1;
for j:=1 to v[i] do
begin
p:=p*v[i];
if p>100 then p:=p mod 10;
end;
s:=s+p;
s:=s mod 10;
writeln(g,s);
end;
close(f);close(g);
end.