Pagini recente » Cod sursa (job #2769279) | Cod sursa (job #2041977) | Cod sursa (job #2652835) | Borderou de evaluare (job #1307029) | Cod sursa (job #561801)
Cod sursa(job #561801)
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;
writeln(f,a);
end;
close(f);
end.