program 【pascal 程序设计】问题:begin 1.试打印出1-20的自然数.(用while do 语言)2.打印出30至60的偶数(用while do和repeat语言)3.倒着(从20到1)将每个数据打印出来.(repeat)4.求从1至100的自然数

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 13:24:06
program 【pascal 程序设计】问题:begin 1.试打印出1-20的自然数.(用while do 语言)2.打印出30至60的偶数(用while do和repeat语言)3.倒着(从20到1)将每个数据打印出来.(repeat)4.求从1至100的自然数

program 【pascal 程序设计】问题:begin 1.试打印出1-20的自然数.(用while do 语言)2.打印出30至60的偶数(用while do和repeat语言)3.倒着(从20到1)将每个数据打印出来.(repeat)4.求从1至100的自然数
program 【pascal 程序设计】问题:begin 1.试打印出1-20的自然数.(用while do 语言)
2.打印出30至60的偶数(用while do和repeat语言)
3.倒着(从20到1)将每个数据打印出来.(repeat)
4.求从1至100的自然数的和.(repeat)
5.一个两位数x,将它的个位数字和十位数字对调得到一个新数y,此时y恰好比x大36,编程求出所有这样的两位数.(repeat)
6.例,把整数3025从中剪开分为30和25两个数,此时再将这两个数之和平方,恰好这两个数的平方和值为3025.求所有满足以上条件的四位数.(while)
7,.打印出九九乘法表.(while)
8.鸡兔同笼问题.(while)
end.
ps
thanks.

program 【pascal 程序设计】问题:begin 1.试打印出1-20的自然数.(用while do 语言)2.打印出30至60的偶数(用while do和repeat语言)3.倒着(从20到1)将每个数据打印出来.(repeat)4.求从1至100的自然数
第一题:(while)
var n:longint;
begin
n:=1;
while n99;
end.
第六题:(while)
var n,x,y:longint;
begin
n:=1000;
while n

pascal程序设计 输入一个整数n,n program 【pascal 程序设计】问题:begin 1.试打印出1-20的自然数.(用while do 语言)2.打印出30至60的偶数(用while do和repeat语言)3.倒着(从20到1)将每个数据打印出来.(repeat)4.求从1至100的自然数 pascal程序设计:s:=1*2*3+2*3*4+3*4*5+.+n*(n+1)*(n+2). pascal pascal pascal! Java write a program to read an integer,n,from the keyboard and output n row of pascal's triangle. 【程序设计】PASCAL语言实现找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和. 4个数,请用PASCAL语言输出第2个小的数program xxx;var a,b,c,d:integer;beginreadln(a,b,c,d);if a pascal语言改错程序、题目↓program x_dd;var a,b,c:ingteger;beginread(a);b:=a;for c:= 1 to 99 dobeginread(a);if b free pascal编写三角形面积公式.顺便把正方形和长方形的写出.program sjxmj;var这些简单的用语,就是begin,writeln这些 Pascal 是什么 Pascal是什么 pascal随机数 程序设计 +2!+3!+.+20! 程序设计的英语怎么说? C程序设计 英语怎么说 MATLAB程序设计中peaks 求一道pascal题是这样的:program noip21;var d,p:integer;beginp:=1;d:=11;while d>1 do beginp:=2*(p+1);d:=d-1;end;writeln(p);end. pascal求10000以内n的阶乘?Program jiecheng ;var s,n:longint;function fac(n:integer):integer;vark,t:integer;begint:=1;for k:=2 to n dot:=t*k;fac:=t;end;beginwriteln('Input n:');read(n);s:=fac(n);write('s=',s);end.由于是新手,刚接触pascal,