2011信息奥赛第四次课(练习一)1.pptVIP

2、交换两个数值型变量a和b的值 * * program ex1;var a,b,c,s:integer;begin? read(a,b);? c:=2*(a+b);? s:=a*b;? writeln(c);? write(s);end. 1、已经矩形两条边求周长与面积 A B C Program a1; var a,b,c:real; Begin write(‘a=‘);readln(a); write(‘b=‘);readln(b); c:=a; a:=b; b:=c; writeln(‘a=‘,a:10:1); writeln(‘b=‘,b:10:1); readln; End. program ex_change; var a,b,c:integer; begin read(a,b); c:=a; a:=b; b:=c; write(a, ,b); end. 实现交换 Description：对于一个任意的三位自然数X，编程计算其各个数位上的数字之和S。 Input：输入一行，只有一个整数x(100=x=999) Output： 输出只有一行，包括1个整数 Sample Input 123 Sample Out