Pagini recente » Cod sursa (job #2637789) | Cod sursa (job #2554377) | Cod sursa (job #600057) | Cod sursa (job #78965) | Cod sursa (job #561862)
Cod sursa(job #561862)
type vector=array[1..10000] of longint;
var t,i,b,a:integer;
j:longint;
n:vector;
f:text;
begin
assign(f,'cifra.in');reset(f);
read(f,t);
for i:=1 to t do read(f,n[i]);
close(f);
a:=0;j:=1;
assign(f,'cifra.out');rewrite(f);
for i:=1 to t do begin
b:=n[i];
while j<n[i] do begin
b:=b*n[i];
j:=j+1
end;
j:=1;
a:=a+b;
a:=a mod 10;
write(f,a);
end;
close(f);
end.