用pascal循环结构解决问题:急求!!!!!!!!!!
2.求2到1000中的完数.(因子之和等于它本身的数称为完数,例如28的因子有:1,2,4,7,14,并且1+2+4+7+14=28,所以28是完数)
3.猴子吃枣问题,猴子摘了一堆枣,第一天吃了一半多一个;第二天吃了剩下的一半多一个;依次类推,到第10天只剩1个.问最初有几个枣?
4.求最小正整数m,n(0<n<M)为何值时,1989的m次方和1989的n次方的最后三位数相同.
5.编程求一批用0作结束标志的数列,统计其中有多少个正数和多少个负数.
6.编程,计算n!以十进制形式表示的数中最右边一个非零的数,并找出在他右边有几个零.例如12!=1*2*3*4*.......*12-479001600
计算结果中,数字6应该是12! 以十进制数形式表示的数中最右边一个非零数字,他的右边有两个零.(程序应该适合于n为整型的范围)
7.计算的值,以知s=1/1*2+1/3*4+...+1/99*100.
program ygb;
var i,j,s:integer;
begin
for i:=2 to 1000 do
begin
s:=0;
for j:=1 to i-1 do if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.
è¾åºçå®æ°åªæä¸ä¸ªï¼6 28 496
用pascal循环结构解决问题:急求!!!
第一个题目的程序如下：program ygb;var i,j,s:integer;begin for i:=2 to 1000 do begin s:=0;for j:=1 to i-1 do if i mod j=0 then s:=s+j;if s=i then write(i,' ');end;end.输出的完数只有三个：6 28 496
用pascal循环结构解决问题:急求!!!
第8:var i,j:integer;begin for i:=1 to 26 do begin for j:=1 to (26-i) do write(' ');for j:=1 to i-1 do write(chr(j+ord('A')-1));write(chr(i+ord('A')-1));for j:=i-1 downto 1 do write(chr(j+ord('A')-1));writeln;end;end.第9:这个..要用计...
用PASCAL编的循环结构程序
1.var n,i,tmp:integer;ans,ans2:int64;begin readln(n);ans:=1;for i:=1 to n do begin read(tmp);ans:=ans*tmp;ans2:=ans2+tmp*tmp;end;writeln(ans);writeln(ans2);end.2.var i,tmp:integer;zheng,fu,zero:integer;begin for i:=1 to 20 do begin readln(tmp);if tmp>...
编写pascal程序 用循环结构时, 如何跳出这个程序,要什么语句?
如果是 跳出 当前的循环 则用过程： break 如果是 在 函数或过程里面用的话 用 过程：exit 可以跳出 函数和过程 如果 想直接退出程序 则用 过程：halt 以上所说的 过程可以直接使用 例如 for i:=1 to n d for j:=i+1 to n do begin if {语句} then break;a[i]:=a[j...
pascal 循环结构
var n,i,j,ans:longint;begin readln(n,i);for j:=0 to n do if j mod i=0 then ans:=ans+j;writeln(ans);end.
会pascal的帮一下忙,跪求答案,循环结构的内容
在循环开始之前,初始化为零.也就是赋0值吧.在输入结果语句之后,如果题目对了,就让此变量加1,也就是I:=I+1吧,否则不加,一个if语句就可以了.在下一个给出计算结果前,检查I的值,如果I值大于或等于10时,强制跳出循环.也就是那个BraeK,记不得了,首尾两个字符中是对的..很简单的问题嘛,...
pascal语言中的FOR循环语句的结构是什么?
Pascal语言中for循环语句是计数型循环，所以可以知道循环的次数，结构如下：for <变量>：=<初值> to <终值> do <循环体>；for <变量>：=<初值> downto <终值> do <循环体>；解释：在第一种格式中，<变量>先被赋值于<初值>，然后执行一次<循环体>，之后<变量>自加1，再执行一次<循环体>…...
会pascal的帮一下忙,跪求答案,循环结构的内容
begin b:=false;{初始化} readln(a);{共有多少元} a:=a*10;{元→角} for a1:=1 to a div 6 do for a2:=1 to a div 7 do for a3:=1 to a div 8 do for a4:=1 to a div 9 do if a1*6+a2*7+a3*8+a4*9=a then begin b:=true; writeln(a1,' ',a2,' ',a3...
pascal循环问题
这是第三层嵌套小鸡的循环 小鸡c三个值1钱...所以c的值应该是100钱减去前面循环的公鸡a和母鸡b所花的钱然后乘3就是小鸡的数量 if a+b+c=100 then writeln(a,' ',b,' ',c); 把满足a,b,c总数为100的结果打印 下面是另一种语句循环...结构和结果相同 不懂的话了解一下其语句的说明 ...
用pascal语言循环结构编写程序
var a:array[1..20] of longint;i:longint;begin for i:=1 to 20 do a[i]:=0;a[1]:=1;a[2]:=2;for i:=3 to 20 do a[i]:=a[i-1]+a[i-2];for i:=1 to 20 do writeln(a[i]);end.
