Cod sursa(job #346122)

Utilizator anadanescuDanescu Ana anadanescu Data 6 septembrie 2009 21:41:32
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.51 kb
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.