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

Question

Определите значение переменной р после выполнения следующего фрагмента программы:
m:=13;
n:=21;
n:=2*m-n;
if m< =n then
p:=m+n
else
p:=4-m*n;

Помогите, пожалуйста с заданием по информатике, буду очень благодарна. Желательно расписать так, как это должно выглядеть в программе Pascal.

Answer 1

m = 13;
n = 21;
n = 2*m-n = 2*13-21 = 26-21 = 5;
m< =n = 13 <= 5 = false </span>⇒ p = 4-m*n = 4-13*5 = -61

var n,m,p:integer;
begin
m:=13;
n:=21;
n:=2*m-n;
if m<=n then<br>p:=m+n
else
p:=4-m*n;
writeln(p);
end.

Результат:
-61

Comments

Спасибо огромное!