Question

PASCAL教程for语句

输入因数个数N，打印输出有N个因数的三位数（N是1到20的数）

Answer 1

var
n,i,t,j:integer;
begin
readln(n);
for i:=100 to 999 do begin
t:=0;
for j:=1 to i do if i mod j =0 then inc(t);
if t=n then writeln(i);
end;
end.