Question

pascal中，如何输入一个数，判断是否为1，是的话就回到一开始的读入数据中。

如
var a,b,c,e:integer;
begin
readln(a,b);
c:=a+b;
writeln(c)
readln(e)
if e=1 then( 回到readln(a,b)哪里 )

Answer 1

通用法：
var
a,b,c,e:integer;
begin
repeat
readln(a,b);
c:=a+b;
writeln(c);
readln(e);
until e<>1;
end.
递归法
var
a,b,c,e:integer;
procedure plus;
begin
readln(a,b);
c:=a+b;
writeln(x);
readln(e);
if e=1 then plus;
end;
begin
plus;
end.

Answer 2

var a,b,c,e:integer;

begin
while true do
begin
readln(a,b);
c:=a+b;
writeln(c);
readln(e);
if e<>1 then break;
end;
end.

Answer 3

主要部分是
var a,b,c,e:integer;
begin
readln(a,b);
c:=a+b;
writeln(c)
repeat
readln(e)；
until e=1；
writeln(e);
end.

追问

没用。