多重循环2.docVIP

多重循环(循环嵌套) 输出图形题模板： For i:= do {控制行数} Begin 控制前面的空格数； For j:= do write(x); {每行个数} Writeln; End; 例1、任意输入一正整数N，要求把它拆成质因子的乘积。如：10＝1＊2＊5；20＝1＊2＊2＊5。 程序代码： PROGRAM e17(input,output); VAR a,b,c,s:integer; BEGIN writeln(input s); readln(s); write(s,=,1); a:=1; repeat a:=a+1; while s mod a=0 do begin s:=s div a; write(*,a); end; until s=1; END.