回 帖 发 新 帖 刷新版面

主题:来者加分

若A不大于B则打印出A的值

回复列表 (共13个回复)

沙发

program    abc;
  var    a,b: integer;
   begin
    writeln('a,b=');                           
     readln(a,b);
   if  a<b   then  writeln( a );
    writeln;
     end.
 
[fly]楼主,加分啊~~~~          加分~`~`[/fly][em12][em12][em70][em70][em71][em48][em48]

板凳

楼上的,你说的这是哪跟哪呀```~~~~

3 楼

[quote]program    abc;
  var    a,b: integer;
   begin
    writeln('a,b=',a,b);                           
     readln(a,b);
   if  a<b   then  writeln( a );
    writeln;
     end.
 
[fly]楼主,加分啊~~~~          加分~`~`[/fly][em12][em12][em70][em70][em71][em48][em48][/quote]
这里 writeln('a,b=',a,b);再加a,b干什么

4 楼

program    abc;
  var    a,b: integer;
  begin
    writeln('a,b=');                           
    readln(a,b);
    if  a<b   then  writeln( a );
    readln;
  end.

5 楼

[quote]楼上的,你说的这是哪跟哪呀```~~~~[/quote]
他刷分的。

6 楼

同意楼上的观点,补充爆刷分的.[em12][em12][em12][em57][em57]

7 楼

[quote]program    abc;
  var    a,b: integer;
  begin
    writeln('a,b=');                           
    readln(a,b);
    if  a<b   then  writeln( a );
    readln;
  end.
[/quote]

8 楼

这程序一定会卡,---------程序名和变量一样了

9 楼

program    abc;
  var    a,b: integer;
   begin
    writeln('a,b=',a,b);                           
     readln(a,b);
   if  a<b   then  writeln( a );
   writeln('a=',a,'b=',b);
end

10 楼

program    abc;
  var    a,b: integer;
   begin                           
     readln(a,b);
   if  a<b   then  writeln( a );
   writeln('a=',a,'b=',b);
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册