pascal的题目能回多少是多少吧…明天就要上课了,作业还没做啊- -1、 输入20个数,求出其中的最大值与最小值.(我知道这很简单,可是一时半会想不起来啊)2、计算式子“ 1-2+4-8+16-32+64-..

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/14 20:00:24

pascal的题目能回多少是多少吧…明天就要上课了,作业还没做啊- -1、 输入20个数,求出其中的最大值与最小值.(我知道这很简单,可是一时半会想不起来啊)2、计算式子“ 1-2+4-8+16-32+64-..
pascal的题目
能回多少是多少吧…明天就要上课了,作业还没做啊- -
1、 输入20个数,求出其中的最大值与最小值.(我知道这很简单,可是一时半会想不起来啊)
2、计算式子“ 1-2+4-8+16-32+64-...+1024”的和
3、 求数列a0,a1,a2,a3,……,a10.已知
a0=0,a1=1,a2=1
a3=a0+2a1+a2
a4=a1+2a2+a3
……
4、 求出n个菲波拉契数列数,菲波拉契为:0,1,1,2,3,5,8,13,21……,该数列的规律为a0=1,a1=1,a2=a0+a1,a3=a1+a2,……,an=an-2+an-1.
5、输入一个数,判断这个数是否为质数(质数:大于1,且除和它本身外,不能被其它整数所整除的整数.)
6、输出自然数1~100之间的所有素数.
各位好人,帮忙啊~~~[超无辜纯洁眼神- -]

pascal的题目能回多少是多少吧…明天就要上课了,作业还没做啊- -1、 输入20个数,求出其中的最大值与最小值.(我知道这很简单,可是一时半会想不起来啊)2、计算式子“ 1-2+4-8+16-32+64-..
1:
var min,max,n:real;i:byte;
begin
read(max);
min:=max;
for i:=2 to 20 do
begin
read(n);
if n>max then max:=n
else if n