Question

Определите значение переменной с после выполнения фрагмента алгоритма.


рисунок такой, только b= -3 c= 13 под первым ромбом c=c-2 b= b+c, под вторым ромбом с=с+1, b=b-3

Answer 1

program z1;
var b,c: integer;
begin b := -3; c := 13;
while c >= 4 do beginc:=c-2;b:=b+c;end;
while b < 2 do begin c:= c+1;b:=b-3;end;
writeln(c, ' ', b);


end.

с = 3;
b = 32;