竞赛阅读程序测试试题及其答案 知识竞赛答案

竞赛阅读程序测试试题及其答案 知识竞赛答案

“竞赛阅读程序测试”及其

第1题(6分)

program yd;

var d, p: integer; begin p:=1; d:=11;

while d>1 do begin

p:=2*(p+1); d:=d-1

end;

writeln (p) end.

输出：______ 答案： 3070

第2题(6分)

program yd; var

g,m: integer;

k,t: real;

begin

k:=0; g:=0;

for m:=1 to 49 do begin g:=g+1;

k:=k+1/(g*(g+1)) end;

writeln ( k: 10: 2 ) end.

输出：______ 答案：

0.98

第3题(6分)

program yd; var

n, i, t: longint;

tem: integer;

s: string; begin

write(\ s:=\ repeat

i:= length(s);

while s[i] =\ begin

s[i]:= \ end;

if i>0 then s[i]:=\

else s:= \

val(s,t,tem);

until t mod n = 0;

writeln(n,\ end.