谁能用pascal语言帮我做个题~~~~

来源：百度知道 编辑：UC知道 时间：2024/06/30 20:35:33
文件名为分别C21,C22,C23,C24
一: 键盘输入一个自然数,求出这个自然数不同的因数的个数/.

例如,输入6时,因为1.2.36 均是6的因数, 故输出值为4.

二. 编写程序, 定义一个函数digit(n,k),它能分离出整数n从右边数第k个数字．

三． 围绕着山顶有10个洞,一只兔子和一只狐狸个住一个洞,狐狸总想吃掉兔子.一天兔子对狐狸说,你想吃我有一个条件,第一次隔一个洞找我,第二次隔两个洞找我 ,以后依次推类,次数不限. 若能找到我,你就可以饱餐一顿,在没找到我之前不能停止.狐狸一想只有10个洞,寻找的次数又不限,哪有找不到的道理,就答应了条件.结果就是没找着.现在请你编写一个程序,假定狐狸找了1000次,兔子躲在哪些洞里才安全.....

( 非常感谢~~ 跪谢!!! .. 请表明题号.)
晕打错了
文件名分别为C21.C22.C24
跪谢啊我哭~~~~
速度啊抓紧时间
我要哭啊55555555555

大哥大姐大虾~~

你输入输出文件名的扩展名没给我
我就默认是c2*.in/c2*.out了.
一:
program c21;
var
i,j,k,n,tot:longint;
begin
assign(input,'c21.in');reset(input);
assign(output,'c21.out');rewrite(output);
readln(n); tot:=0;
for i:=1 to n do if n mod i = 0 then inc (tot);
writeln(tot);
close(input);close(output);
end;

二.
program c22;
var
n,k:longint;

function digit(n,k:longint):string;
var
x,y:string;
begin
str(n,x);
digit:=copy(x,k,1);
end;

begin
assign(input,'c22.in');reset(input);
assign(output,'c22.out');rewrite(output);
readln(n,k);
writeln(digit(n,k));
close(input);close(output);
end.

三．
program c24;
var
i,k,s:longint;
a:array[1..10]of boolean;
begin
fillchar(a,sizeof(a),true);
s:=1;
for i:=1 to 1000 do
begin
s:=(s+i+1)mod 10 +