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

Question

Определите значение переменной с после выполнения следующего фрагмента программы: a:=100; b:=30; a:=a – b*3; if a>b then c:=a – b else c:=b – a; Ниже варианты ответа: 1) 70 2) 20 3) -20 4) 130

Answer 1

Ответ:

program Project2;

{$APPTYPE CONSOLE}

uses

 SysUtils;

   var a,b,c:integer;

begin

a:=100;

b:=30;

a:=a-b*3;

if a>b then c:=a-b

else c:=b-a;

 write (c);

end.

 2)  20