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

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

Comments

b := -3;

---

согласен, уже исправил