Pascal 语言输入一个正整数,求出它的所有素因子,每两个数之间用一个空格隔开
Pascal 语言输入一个正整数,求出它的所有素因子,每两个数之间用一个空格隔开
Pascal 语言(1)输入一个正整数,求出它的所有素因子,每两个数之间用一个空格隔开。
(2)已知一队兔子,每个月可以生一对小兔子,而小兔子过一个月后也可以生一对小兔子,即兔子的数量是:第1个月1对,第2个月2对,第三个月3对,第四个月5对,……,n(n<=30)个月后有对少对兔子
(3)外出旅游的几位朋友决定次日早晨共分一筐苹果。天刚亮,第一个人醒来,他先拿了一个,再把筐里的八分之一拿走;第二个人醒来,先拿两个,再把筐里的八分之一拿走;第三个人醒来,先拿三个,再拿走筐里的八分之一;…每个人依次照此方法拿出各人的苹果,最后筐里的苹果全部拿完,他们每人所拿到的苹果数正巧一样多。求原先筐里的苹果数和人数。
(1)输入18
输出2 3 3
(2)输入4
输出5
第一题
program EDG666;
var
i,j,k:longint;
f:boolean;
begin
readln(k);
for i:=2 to 100 do
if k mod i=0 then
begin
f:=true;
for j:=2 to i div 2 do
if i mod j=0 then
begin
f:=false;
break;
end;
if f then write (i,' ');
end;
readln;
readln;
end.
哪里错了,求大神指点