Cod sursa(job #2362470)

Utilizator VanilieProgramatoareSoltanMarian VanilieProgramatoare Data 3 martie 2019 10:51:02
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.74 kb
var a,b,c,d,e,i,n,produs,rezultat:longint;
fin,fout:textfile;
type vector = array[1..100] of longint;
var x:vector;

function patrat(p:longint):longint;
var i,rezultat:longint;
begin
rezultat:=1;
for i:=1 to p do
          rezultat:=rezultat*p;
patrat:=rezultat;

end;
begin
assign(fin,'cifra.in');
reset(fin);
assign(fout,'cifra.out');
rewrite(fout);
read(fin,n);
for i:=1 to n do readln(fin,x[i]);
for i:=1 to n do begin
          rezultat:=0;
          produs:=1;
          c:=x[i];
          for e:=1 to c do begin
          produs:=patrat(e);
          rezultat:=rezultat+produs;
          end;
          writeln(fout,rezultat mod 10);
          end;
close(fin);
close(fout);
          
          
          
end.