Question

что будет выведено на экран в результате выполения следующей программы
Var a,b,c:integer;
a:=-15;
a:a*2+1;
b:=-a;
c:=b mod 2;
Writeln (c=,c);
end

Answer 1

a:=-15; //переменной a присваивается значение -15
a:=a*2+1; //переменной a присваивается значение a=(-15)*2+1=-29
b:=-a; //переменной b присваивается противоположное значение a: b=29
c:=b mod 2;//переменной c присваивается остаток от деления 29 на 2: c=1
Writeln ('c=',c); //вывод c
программа выведет:
c=1

Answer 2

во-первых, если загрузить эту программу в паскаль то ничего не выведется т.к. тут допущены ошибки, вот как правильно:
Var a,b,c:integer;begina:=-15;b:=-a;
c:=b mod 2;Writeln('c=',c);end.
в программе выводится остаток деления числа b на число c
но если тебе нужно оставить действие a:=a*2+1 тогда ты должен добавить ещё одну переменную и в таком случае b будет равнять не -а, а минус эта самая переменная. я обозначила эту переменную n, вот что получается
Var a,b,c,n:integer;begina:=-15;n:=-a*2+1;b:=-n;c:=n mod 2;Writeln('c=',c);end.