Cod sursa(job #123503)

Utilizator free2infiltrateNezbeda Harald free2infiltrate Data 16 ianuarie 2008 11:47:34
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.42 kb
program cifra;
var T : real;
    N,S : longint;
    i,r,o,j : integer;
    fin,fout : text;
begin
assign(fin,'cifra.in');
reset(fin);
readln(fin,T);
assign(fout,'cifra.out');
rewrite(fout);
for r := 1 to round(T) do begin
readln(fin,N);
S := 0;
for i := 1 to N do begin
o := 1;
for j := 1 to i do
o := o * i mod 10;
S := S + o;
S := S mod 10;
end;

writeln(fout,S);
end;
close(fin);
close(fout);
end.