Cod sursa(job #15112)

Utilizator dreamsSarpe Roxana dreams Data 10 februarie 2007 19:20:26
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.53 kb
program cifra;
var t,n,i,j,suma,aux:integer;
    f,g:text;

function ultima(a:integer):integer;
begin
ultima:=a mod 10;
end;

function putere(a:integer):integer;
var aux:integer;
begin
aux:=1;
for i:=1 to a do
aux:=aux*a;
putere:=aux;
end;

begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,t);
for i:=1 to t do
 begin
 readln(f,n);
 suma:=0;
 for j:=1 to n do
 begin
 aux:=putere(j);
 suma:=suma+ultima(aux);
 end;
 writeln(g,ultima(suma));
 end;
close(f);
close(g);
end.