Pagini recente » Cod sursa (job #2920623) | Cod sursa (job #488322) | Istoria paginii runda/666-69 | Cod sursa (job #3169283) | Cod sursa (job #346120)
Cod sursa(job #346120)
program cifra;
var f,g:text;
var n,k,l:byte;
function ultim(a,b:byte):byte;
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:byte):byte;
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.