Pascal编程问题 今天就要!1）试用2种循环编程求1+1/2+1/3aaa+1/N的和正好大于5的N值.2）求E=1+1/21+1/31+aaa+1/N.问题有两句,（1）直到第50项；（2）直到最后一项小于0.000001.要求在一个程序完成,两个结
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/23 23:02:16
Pascal编程问题 今天就要!1）试用2种循环编程求1+1/2+1/3aaa+1/N的和正好大于5的N值.2）求E=1+1/21+1/31+aaa+1/N.问题有两句,（1）直到第50项；（2）直到最后一项小于0.000001.要求在一个程序完成,两个结
Pascal编程问题 今天就要!
1）试用2种循环编程求1+1/2+1/3aaa+1/N的和正好大于5的N值.
2）求E=1+1/21+1/31+aaa+1/N.问题有两句,（1）直到第50项；（2）直到最后一项小于0.000001.要求在一个程序完成,两个结果分两行输出.
3）试用2种循环求N的所有约数.
4）输出自然数N,求他的所有约数之和.
5）已知X.Y.Z三个整数,试用两种不同的程序设计方法求他们的最大公约数.
6）已知自然数N,求N-N的三次方间所有N的倍数.
7）试求两个自然数M-N的最小公倍数.
8）编写程序求出被2.3.5除余数都为1的前10个数,按一行输出,两两空格.
9）试输入任意个自然数,求出平均数,以-1作结束标志（考虑能用什么循环）
10）有一个8位整数试求出它的最右的第一个非0的数字,和该数字的右边有几个0.
11）输入一系列整数,以0作结束标志,统计多少整数多少负数
就要求3,6,7,8,10,11!
Pascal编程问题 今天就要!1）试用2种循环编程求1+1/2+1/3aaa+1/N的和正好大于5的N值.2）求E=1+1/21+1/31+aaa+1/N.问题有两句,（1）直到第50项；（2）直到最后一项小于0.000001.要求在一个程序完成,两个结
3,6,7,8,10,11都有了.
程序很容易懂,看看吧.
program no3;
var n,i:longint;
begin
readln(n);
for i:=1 to n do
if (n mod i)=0 then writeln(i);
end.
program no3;
var n,i:longint;
begin
readln(n);
i:=0;
while in then max:=m else max:=n;
while not((max mod m=0)and(max mod n=0)) do
max:=max+1;
writeln(max);
end.
program no8;
var i,k:longint;
begin
k:=0;
for i:=1 to maxlongint do
begin
if (i mod 2=1)and(i mod 3=1)and(i mod 5=1) then
begin
write(i,' ');
k:=k+1;
if k=10 then halt;
end;
end;
end.
program no10;
var s1,s2:string;
i,j,k,n:longint;
begin
readln(s1);
n:=length(s1);
for i:=1 to n do
s2[i]:=s1[n-i+1];
for i:=1 to n do
if not(s2[i]='0') then
begin
writeln(s2[i]);
writeln(i-1);
halt;
end;
end.
program no11;
var n,i,j:real;
begin
read(n);
i:=0;
j:=0;
while n0 do
begin
if trunc(n)=n then i:=i+1;
if n