Cod sursa(job #27886)

Utilizator bogdan90Bogdan Grama bogdan90 Data 7 martie 2007 11:24:56
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
var a:array[1..100] of integer;
    x,i,j,t,z:integer;
    f,g:text;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
readln(f,t);
rewrite(g);
for i:=1 to t do begin
    x:=1;
    z:=0;
    for j:=1 to i do begin
        for j:=1 to j do
        x:=x*i;
        z:=z+x
        end;
    a[i]:=z mod 10;
    end;
for i:=1 to t do writeln(g,a[i]);
close(g);
end.