高考问答三星手表gear s2:看程序写结果
来源：百度文库 编辑：高考问答 时间：2024/05/07 10:07:37
看程序写结果 (pascal)
1.program lx1；
var p，q，s，t：integer；
begin
readln(p)；
for q:=p+1 to 2*p do
begin
t:=0；
s:=(p*q)mod(q-p)；
if s=0 then
begin
t:=p+q+(p*q)div(q-p)；
write(t：4)；
end；
end；
readln
end.
输入：12 输出：
2.program lx2；
var i，j，f：integer；
a：array[1..8]of integer；
begin
for i:=1 to 8 do
begin
f:=i mod 2；
if f=0 then a[i]:=0
else a[i]:=1；
for j:=1 to i do
if f=0 then a[i]:=a[i]+j
else a[i]:=a[i]*j
end；
for i:=1 to 8 do
write(a[i]：5)；
end. 输出:
1.program lx1；
var p，q，s，t：integer；
begin
readln(p)；
for q:=p+1 to 2*p do
begin
t:=0；
s:=(p*q)mod(q-p)；
if s=0 then
begin
t:=p+q+(p*q)div(q-p)；
write(t：4)；
end；
end；
readln
end.
输入：12 输出：
2.program lx2；
var i，j，f：integer；
a：array[1..8]of integer；
begin
for i:=1 to 8 do
begin
f:=i mod 2；
if f=0 then a[i]:=0
else a[i]:=1；
for j:=1 to i do
if f=0 then a[i]:=a[i]+j
else a[i]:=a[i]*j
end；
for i:=1 to 8 do
write(a[i]：5)；
end. 输出:
1: 181 110 87 76 66 62 61 60
2: 1 3 6 10 120 21 5040 36
181 110 87 76 66 62 61 60
1 3 6 10 120 21 5040 36