Cod sursa(job #2393319)

Utilizator VanilieProgramatoareSoltanMarian VanilieProgramatoare Data 31 martie 2019 12:32:16
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 kb
var fin,fout:textfile;
a,b,c,d,i,n:longint;
function fc(var a:longint):longint;
var b,i:longint;
begin 
b:=1;
for i:=1 to a do 
            b:=b*a;
fc:=b;
end;
            
begin
assign(fin,'cifra.in');
reset(fin);
assign(fout,'cifra.out');
rewrite(fout);
readln(fin,n);
for i:=1 to n do begin
              readln(a);
              for i:=1 to a do 
                        b:=b+fc(i);
              writeln(fout,b mod 10);
              end;
end.