1.任意给定一个正实数,设计一个算法求以这个数为半径的园的面积2.任意给定一个大于1的正整数n,设计一个算法求出n的所有因数P.S:要完整算法过程~越完整的加高分

分类: 作业答案 • 2022-02-21 00:16:03

问题描述：

1.任意给定一个正实数,设计一个算法求以这个数为半径的园的面积
2.任意给定一个大于1的正整数n,设计一个算法求出n的所有因数
P.S:要完整算法过程~越完整的加高分

答

1.
read(r);
write(pi*r*r);
2.
read(n)
for a:=2 to n-1 do
if n mod a=0 then
write(a,' ');
pascal代码.mod表示取余数