Question

Запишите правильную структуру последовательности операторов.
a:=1; b:=1; while a+b<8 do begin a:=a+1; b:=b+1 end; s:=a+b.
Сколько раз будет повторён цикл и какими будут значения переменных a,b,s после его завершения?

Answer 1

цикл проработает 3 раза
a=4
b=4
s=8
---Пояснения---------------
a=1 b=1
  a=2 b=2  a+b<8
  a=3 b=3 a+b<8
  a=4 b=4 a+b=8
----------------------
var a,b,s:integer;
begin
 a:=1; b:=1;
 i:=0;
while a+b<8 do
begin
 a:=a+1; b:=b+1;
end;
s:=a+b
end.