Pascal分解因子
答案:1 悬赏:80 手机版
解决时间 2021-11-18 23:47
- 提问者网友：凉末
- 2021-11-18 07:37
Pascal分解因子
最佳答案
- 五星知识达人网友：风格不统一
- 2021-11-18 08:50
var n:longint;
i,j:longint;
procedure fjys(x:longint);
begin
for i:=1 to x do
if (x mod i=0) then
write(i,' ');
end;
begin
read(n);
fjys(n);
end.追问不需要输出 只要数量就行了
i,j:longint;
procedure fjys(x:longint);
begin
for i:=1 to x do
if (x mod i=0) then
write(i,' ');
end;
begin
read(n);
fjys(n);
end.追问不需要输出 只要数量就行了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯