Pagini recente » Cod sursa (job #1525295) | Cod sursa (job #23970) | Cod sursa (job #2867476) | Cod sursa (job #1955200) | Cod sursa (job #5405)
Cod sursa(job #5405)
program p1;
var f,g:text;
s2:string;
i,j,n,m,c1,c,n2,s,err:integer;
function u(k,m:integer):byte;
var p:integer;
begin
c:=k mod 10;
c1:=1;
p:=0;
for i:=1 to m do begin
c1:=(c1*c) mod 10;
p:=p+1;
end;
u:=c1;
end;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
readln(f,s2);
val(s2[length(s2)], n2, err);
s:=0;
for j:=1 to n2 do begin s:=s+u(j,j); s:=s mod 10; end;
writeln(g,s);
end;
close(f);close(g);
end.