pascal习题, 求助

来源：百度知道 编辑：UC知道 时间：2024/06/18 05:42:10
第一题: N=1到10中的任意一数, 列出1到N, 1到N之内所有整数的和,所有整数平方的和, 与所有整数的3次方的和
第二题: 让用户输入一月中的天数和第一天是星期几, 然后显示这月的月历

program exp1;
var i,n,s1,s2,s3:integer;
begin
write('n=');readln(n);
s1:=0;s2:=0;s3:=0;
for i:=1 to n do
begin
s1:=s1+i;
s2:=s2+i*i;
s3:=s3+i*i*i;
end;
writeln(s1);
writeln(s2);
writeln(s3);
end.

program exp2;
var n,w,i:integer;
begin
write('天数:');readln(n);
write('第一天是星期几（0表示星期日):');readln(w);
writeln('日 一 二 三 四 五 六');
for i:=1 to w+n do
begin
if i>w then write(i-w:2,' ') else write(#32#32,' ');
if i mod 7=0 then writeln;
end;
end.

第二题运行示例如下：

E:\ygb>dcc32 b.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
b.dpr(13)
14 lines, 0.08 seconds, 11352 bytes code, 1805 bytes data.

E:\ygb>b.exe
天数:30
第一天是星期几（0表示星期日):2
日  一  二  三  四  五 &n