Cod sursa(job #14976)
| Utilizator | Data | 10 februarie 2007 13:39:32 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.5 kb |
program cifra;
var t,n,i,j,suma: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
suma:=suma+ultima(putere(j));
writeln(g,ultima(suma));
end;
close(f);
close(g);
end.