说明

写出下面各个程序的运行结果：
1)
var a,b,c,d:integer; {用到几个变量，说明几个变量，变量的类型要正确}
begin
    a:=95;
    b:=97;
    c:=a+b;
    write(c); {紧凑打印，后面打印的紧跟着输出，不换行}
    d:=c div 2; {div :表示整除 如 5 div 2=2}
    writeln(d); {打印完后换行}
end.
2)
var a,b,c:integer;
begin
    a:=3+4;
    b:=a*2;
    c:=(a+b) div 2;
    a:=c div 2;
    b:=a*3+5;
    c:=a;
    writeln(a);
    writeln(b);
    writeln(c);
end.
3)
var a,b,c:integer;
begin
   a:=1;
   b:=2;
   c:=3;
   c:=c*a;
   a:=4;
   b:=a;
   c:=c*a;
   writeln('a=',a,'b=',b,'c=',c);
end.
4)
var a,b,c,s,t:integer;
begin
   a:=7;
   b:=8;
   c:=3;
   s:=a+b*c;
   t:=(a+b)*c;
   s:=s+t;
   writeln(s,' ',t);
end.

输入格式

无输入

输出格式

若干行，格式如下：

1)

第1题的答案

2)

第2题的答案

3)

第3题的答案

4)

第4题的答案

提示

用一个程序直接打印出答案

begin
  writeln('1)');
  writeln('...'); 单引号中答案的自己补充完整
  writeln('2)');
  .......此处自己补充完整
end.

来源

入门题-输入输出