Cod sursa(job #52979)
Utilizator | Data | 20 aprilie 2007 15:30:42 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.55 kb |
var fi,fo:text;
s,n,i,nr:integer;
ucif:byte;
function calc(x:longint):longint;
var j,pot:integer;
begin
s:=0;
for i:=1 to x do
begin
pot:=1;
for j:=1 to i do
pot:=pot*i;
s:=s+pot;
end;
ucif:=s mod 10;
writeln(fo,ucif);
end;
begin
assign(fi,'cifra.in'); reset(fi);
assign(fo,'cifra.out'); rewrite(fo);
readln(fi,n);
for i:=1 to n do
begin readln(fi,nr); calc(nr); end;
close(fi);
close(fo);
end.