Pagini recente » Cod sursa (job #3151602) | Cod sursa (job #2732797) | Cod sursa (job #399476) | Cod sursa (job #3236713) | Cod sursa (job #363601)
Cod sursa(job #363601)
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.