一个富翁试图与陌生人做一笔生意用python_2009年青岛市程序设计试题

附件：

各辅导教师做出并调试正确后，做成WORD格式，包含题目及答案，发给电教站蒋华程，

将在本栏目展示，供大家学习。答案将标明出处。

_________________________小学试题答案------------------

本答案由高春(实验初中小学部)、杨妮妮(实验小学)分别提供。

第一题:

求和问题:(程序文件名A1.PAS/A1.IN/A1.OUT)

输入一个三位正整数，然后与它到过来的数相加，输出和。

输入(A1.IN)：一行，N(100<=n<=999)

输出(A1.OUT):一行，和值

样例1：

输入：125

输出：646

样例2：

输入：100

输出：101

参考程序：(本答案由高春提供)

programsws;

var a,b,c,d,e,f:integer;

f1,f2:text;

begin

assign(f1,'a1.in');

assign(f2,'a1.out');

reset(f1);

rewrite(f2);

while (a>999) or (a<100) do

readln(f1,a);

b:= a mod 10;

c:= a div 10 mod 10;

d:= a div 100;

e:=b*100+c*10+d;

writeln(f2,a+e);

close(f1);

close(f2);

end.

参考程序：(本答案由杨妮妮提供)

program a1;

var a,b,c,x,y:integer;

f1,f2:text;

begin

assign(f1,'a1.in');

assign(f2,'a1.out');

reset(f1);

rewrite(f2);

readln(f1,x);

a:=x div 100;

b:=x div 10 mod 10;

c:=x mod 10;

y:=c*100+b*10+a;

writeln(f2,x+y);

close(f1);

close(f2);

en