Cod sursa(job #288703)

Utilizator RaduDoStochitoiu Radu RaduDo Data 26 martie 2009 01:01:31
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
Program P1;
var n,ii,i,j,s,t:integer;f1,f2:text;
begin
assign(f1,'cifra.in');reset(f1);
assign(f2,'cifra.out');rewrite(f2);
readln(f1,t);
while not(eof(f1)) do begin
read(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;
readln(f1);end;
close(f1);close(f2);
end.