Pagini recente » Cod sursa (job #499490) | Cod sursa (job #2067905) | Cod sursa (job #3209489) | Cod sursa (job #325455) | Cod sursa (job #288703)
Cod sursa(job #288703)
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.