ответ : 4
Код:
var
a,b : integer;
begin
a:=1;
b:=1;
while a <= 3 do
a:=a+1;
b:=b+1;
end;
writeln('a = ', a, ' b = ', b);
end.
ответ : 4
Код:
var
a,b : integer;
begin
a:=1;
b:=1;
while a <= 3 do
begin
a:=a+1;
b:=b+1;
end;
writeln('a = ', a, ' b = ', b);
end.