Pagini recente » Cod sursa (job #54127) | Cod sursa (job #3220309) | Cod sursa (job #701603) | Cod sursa (job #2329480) | Cod sursa (job #346122)
Cod sursa(job #346122)
program cifra;
var f,g:text;
var n,k,l:integer;
function ultim(a,b:integer):integer;
var a1:byte;
begin
a1:=a;
while b<>1 do
begin
b:=b-1;
a:=(a*a1) mod 10;
end;
ultim:=a mod 10;
end;
function sum(n:integer):integer;
var i,s:byte;
begin
s:=0;
for i:=1 to n do
s:=(s+ultim(i,i)) mod 10;
sum:=s;
end;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,k);
for l:=1 to k do
begin
readln(f,n);
writeln(g,sum(n));
end;
close(f);
close(g);
end.