杭州交通信息网水利工程施工监理表格:pascal程序设计
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/27 13:44:17
一、 求1－1000以内所有偶数的和、奇数和
二、有鸡兔同笼，头30，脚 90，究竟笼中的鸡和兔各有多少只?
3、从键盘输入10个数，将这10个数逆序输入，并求这10个数的和，输出这个和（用数组完成）
二、有鸡兔同笼，头30，脚 90，究竟笼中的鸡和兔各有多少只?
3、从键盘输入10个数，将这10个数逆序输入，并求这10个数的和，输出这个和（用数组完成）
program add;
var i:integer;
s1,s2:longint;
begin s1:=0; s2:=0;
for i:=1 to 1000 do
if odd(i)=0 then s1:=s1+i
else s2:=s2+i;
writeln(s1,' ',s2);
end.
program jt;
var i:integer;
begin for i:=1 to 29 do
if (i*2+(30-i)*4)=90 then writeln(i,30-i);
end;
program number;
var a:array[1..10] of integer;
i:integer;
s:longint;
begin for i:=1 to 10 do
begin
readln(a[i]);
s:=s+a[i];
end;
for i:=10 downto 1 do
writeln(s[i]);
writeln(s);
end.