Pagini recente » Cod sursa (job #484200) | Cod sursa (job #1712212) | Cod sursa (job #570448) | Cod sursa (job #2525660) | Cod sursa (job #49115)
Cod sursa(job #49115)
program NOD_SOFTWARE;
uses dos;
type vector = array [ 1..101] of integer;
var v,x:vector;
s,i,j,n,m,p,q:integer;
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);
close(fin);
end.