信息奥赛第十四次课循环五.pptVIP

* * 1032: 【入门】编程求阿姆斯特朗数 阿姆斯特朗数：如果一个三位正整数等于其各个数字的立方和，则该数称为阿姆斯特朗数，如407＝4^3＋7^3+0^3，试编程求出N以内的所有阿姆斯特朗数的个数。(100=N=999) 输入一行，只有一个整数N 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。 样例输入 999 样例输出 4 program ex1032; var n,i,b,s,g:integer; begin readln(n); s:=0; for i:=100 to n do begin b:=i div 100; s:=i mod 100 div 10; g:=i mod 10; if i=g*g*g + b*b*b + s*s*s then s:=s+1; end; writeln(s); end. 356 3.56 3 3.56 56 5.6 5 35.6 6 找错 program ex1032; var n,i,b,s,g:integer; begin readln(n); s:=0; for i:=100 to n do begin b:=i div 100; s:=i mod 100 div 10; g:=i mod 10; if i=g*g*g + b*b*b + s*s*s then s:=s+1; end; writeln(s); end. 356 3.56 3 3.56 56 5.6 5 35.6 6 用循环生成30个* 完成所有的*输出后分行 打包作为一个整体，让这个包运行5次，如何实现？ for i:=1 to 30 do write(‘*’); writeln; 循环变量i的变化 for j:=1 to 30 do write(*); writeln; begin end; for i:=1 to 5 do begin end. 双重循环 program ex; var i,j:integer; 5行，每行30个* 外循环走一个，内循环走一轮 for j:=1 to 30 do write(*); writeln; begin end; for i:=1 to 5 do 演示变量运行中的变化 for j:=1 to do write(*); writeln; begin end; for i:=1 to 5 do begin end. program ex; var i,j:integer; 如果希望改进为第一行输出一个*，第二行两个*，依次……如何实现？ * ** *** **** ***** 1 12 123 1234 12345 1037: 【入门】判断素数 题目描述 任意输入一个整数，判断它是否为素数。是的话输出T,不是的话输出F. 输入只有一行，包括1个整数(在长整型范围内）。 输出只有一行. 样例输入 57 样例输出 F program ex1037; var n,i:longint; pd:boolean; begin readln(n); pd:=true; for i:=2 to trunc(sqrt(n)) do if n mod i=0 then begin pd:=false; break; end; if n=1 then pd:=false; if pd=true then writeln(t) else writeln(f); end.