其中有
var
i:integer;
r:real;
c:char;
begin
read(i,r,c)
end.
想问下为什么我输入两个数字(输入一个数字回车)就会退出?
想问下这是为什么?

拿delphi控制台举例。
建议调换一下顺序，先读入char，后读入其他类型。注意格式，输入字符后不要加空格，否则会把空格读给integer，就出错了。
例如：  输入  qwer2 3回车    结果：   a=q  b=w  c=e  d=r  i=2  j=3.0000000000E+0000

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  a,b,c,d: char;
  i: integer;
  j: real;

begin
  Writeln('abcd=?  i=?   j=?');
  Readln(a,b,c,d,i,j);
  Writeln('a=',a,'  b=',b,'  c=',c,'  d=',d,'  i=',i,'  j=',j);
  Readln(i);
end.

[[it] 本帖最后由 johnwee 于 2008-2-29 00:05 编辑 [/it]]

有时间看看我的问题
https://bbs.bccn.net/thread-201336-1-1.html