作业帮 > 综合 > 作业

一个自然数有十个约数,求符合条件的最小自然数,用PASCAL语言

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 03:34:44
一个自然数有十个约数,求符合条件的最小自然数,用PASCAL语言
一个自然数有十个约数,求符合条件的最小自然数,用PASCAL语言
var a,b,s,n:longint;
begin
s:=0;
b:=0;
while s 10 do
begin
inc(b);
for n:=1 to b do
if b mod n=0 then s:=s+1;
end;
writeln(b);
end.
希望楼主采纳,另外,二楼的有错误,最后应该是writeln(a);