Question

A := -5; b := -3; a := a - b*3; if a > b then c := b + a else c := a – b; решите

Answer 1

A=a-b*3 = -5-(-3)*3 = -5+9 = 4
a>b ⇒ 4>-3 ⇒ истина
c=b+a = -3+4 = 1

Answer 2

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var a:=-5; var b:=-3; var c:=0;
  a:=a-b*3;
  if a>b then c:=b+a else c:=a-b;
println(c);
end.
Ответ: С = 1