Cod sursa(job #593894)

Utilizator Relu.PomianRelu Pomian Relu.Pomian Data 5 iunie 2011 10:32:51
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.43 kb
var t,i,p1,p,k,j:integer;
n : array[1..100] of longint;
f:text;
begin
assign(f,'cifra.in');reset(f);
read(f,t);
for i:=1 to t do
    read(f,n[i]);
close(f);
assign(f,'cifra.out');rewrite(f);
for i:=1 to t do begin
    for j:=1 to n[i] do begin
        p1:=j;
        for k:=1 to j-1 do
            p1:=p1*j;
        p:=p1+p;
        end;
    p:=p mod 10;
    writeln(f,p);
    p:=0;
    end;
close(f);
end.