一道pascal题目2.Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和.求前30项,并以每行5个数的格式输出.最好用while循环来实现

来源：学生作业帮助网编辑：作业帮时间：2024/11/15 21:46:55

一道pascal题目2.Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和.求前30项,并以每行5个数的格式输出.最好用while循环来实现
一道pascal题目
2.Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和.求前30项,并以每行5个数的格式输出.
最好用while循环来实现

一道pascal题目2.Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和.求前30项,并以每行5个数的格式输出.最好用while循环来实现
program d55;
var
a,b,c,i,n:longint;
begin
readln(n);
a:=1;
b:=1;
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end;
if (n=1) or (n=2) then c:=1;
writeln(c);
end.

一道poj上的题目求poj2253 的pascal程序做一道PASCAL题目输出2——n之间的所有素数（质数）. 一道编程题目pascal：用辗转相除法求两数的最大公约数. Noip提高组pascal题目一道Free Pascal的题目求100~1000之间能被7整除的数,每行输出10个. 急求TURBO PASCAL 急求关于TURBO PASCAL 一道要关于FOR的,另外两道一道是过程的,一道是函数的,题目可以自己编,但是要与化学有关的, 一道简单的free pascal题目,各位free pascal大师解答一下吧.求2~100中每个数的质因子,输出如下形式：2=23=34=2*2...99=3*3*11100=2*2*5*5请一定是自编,要用我这种水平去做.最好用for循环.并请写上每一步的教我一道turbo pascal题目题目是从键盘输入一个整数X(X 不超过 10000),若X的各位数字之和为7的倍数,则打印YES',否则中打印NO用turbo pascal格式回答用pascal编写的一道题目.找出各位上数字之和为8,并且是素数的所有二位正整数之和,并输出这些数及其和.. 求一道简单的pascal题目马戏团有鸟和大象,它们共有 36 个头,100只脚.问有多少只鸟和大象. 一道简单的pascal题目输入两个大写英文字母,按英文字母顺序输出这两个字母之间的所有字母.如输入HD输出DEFGH pascal pascal pascal! 求各种斐波那契数列的pascal题目! 哥德巴赫猜想的题目是pascal类型的 pascal编程：哥德巴赫猜想题目描述输入N(N 一道pascal题目2.Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和.求前30项,并以每行5个数的格式输出.最好用while循环来实现 PASCAL中一道题目求大牛解答……对于十进制整数N,试求其-2进制表示.例如,因为 1*1 + 1*-2 + 1*4 + 0*-8 +1*16 + 1*-32 = -13 ,所以(-13)_10 = (110111)_-2.最好说一下思路,然后把负数的短除讲解一下……初学者几道关于pascal的题目题目分别如下：1.用字符输出一个“王”字.2.从键盘上读入小写的pascal,利用CHR（）和ORD（）函数,输出大写的PASCAL.3. 从键盘上读入一个实数,利用ROUND（）和TRUNC（）函