谁帮我做PASCAL练习

来源：百度知道 编辑：UC知道 时间：2024/06/28 09:58:38
课堂练习

1. 计算在自然数中；前N个奇数之和(0<N<400)。
例如N=4，则前4个奇数1、3、5、7的和为16。
文件名P1.PAS
输入： 4
输出： 16

2. 输入10个正整数，去掉一个最大数和一个最小数，然后求出其的平均值。
文件名P2.PAS
输入 20 78 67 98 53 98 85 73 60 90
输出 75. 5

3. 输入一个n位正整数，然后颠倒输出该n位数，例如输入123，则输出321。
文件名P3.PAS
输入 908
输出： 809

4. 边长为自然数，面积为S的形状不同的长方形共有多少种？如面积为6，可以有（1，6）、（2，3）两种长方形。
文件名P4.PAS
输入：S=6
输出：2
5. 有A、B、C、D、E五本书，要分给张、王、刘、赵、钱五位同学，每人只能选一本, 先让每人把自己喜爱的书法填于下表，编程找出让每人都满意的方案。
文件名P5.PAS
A B C D E
张 √ √
王 √ √ √
刘 √ √
赵 √ √ √
钱 √ √

6. 有一数列为1，1，2，3，5，8，13，…，n，求该数列1至n各项的数。
文件名P6.PAS
例如：输入：N=7；输出：1，1，2，3，5，8，13
帮我做,谢谢

第一题：
program p1;
var n:longint;
begin
read(n);
writeln(n*n);
end.
第二题：
program p2;
var a:array[1..10]of integer;
da,xiao,sum,i:integer;
begin
for i:=1 to 10 do read(a[i]);
sum:=0;
da:=0;
xiao:=32767;
for i:=1 to 10 do
begin
sum:=sum+a[i];
if a[i]>da then da:=a[i];
if a[i]<xiao then xiao:=a[i];
end;
writeln((sum-da-xiao)/8:3:3);
end.

第三题：
program p3; （数学算法）
var i,shu:integer;
begin
readln(shu);
while shu>0 do
begin
write(shu mod 10);
shu:=shu div 10;
end;
end.

program p3;(字符串算法)
var i:integer;
s:string;
begin
readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
end.

第四道：
如果输入是“s=6”：
program p4;
var i,j,s,c,ge:integer;
s1:string;
begin
readln(s1);
delete(s1,1,2);
val(s1,s,c);
ge:=0;
for i