Cod sursa(job #288706)

Utilizator RaduDoStochitoiu Radu RaduDo Data 26 martie 2009 01:05:50
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 kb
Program P1;
var n,ii,i,j,s,t,x:integer;f1,f2:text;
begin
assign(f1,'cifra.in');reset(f1);
assign(f2,'cifra.out');rewrite(f2);
readln(f1,t);
for x:=1 to t do begin
readln(f1,n);s:=0;
if n=1 then writeln(f2,'1') else begin
for i:=2 to n do begin ii:=i;
for j:=1 to i-1 do
ii:=(ii mod 10)*(i mod 10);ii:=ii mod 10;s:=s mod 10+ii;end;s:=s+1;writeln(f2,s mod 10);end;
end;
close(f1);close(f2);
end.