Запишите два условия истинные при a=0, b=-5, c=5

Любые условия? В таком случае это слишком просто...
с=b+c
b=a-c

var

n,s:longint;

n1:integer;

begin

readln(n);

s:=0;

while n <> 0 do begin

n1:=n mod 10;

if n1 mod 2 = 0 then s:=s+n1;

n:=n div 10 end;

writeln('s=',s)

end.

Объяснение:

картинка

Строки 2 и 3 можно менять местами

Строки 5 и 6 можно менять местами

var

n1:integer;

n,s:longint;

begin

s:=0;

readln(n);

while n <> 0 do begin

n1:=n mod 10;

if n1 mod 2 = 0 then s:=s+n1;

n:=n div 10 end;

writeln('s=',s)

end.

Описываем переменные

Вводи число

Начальное значение переменной для накопления суммы равно 0

Цикл (пока число неравно 0):

вычисляем последнюю цифру числа

проводим проверку на чётность, если пройдена, то суммируем

отбрасываем последнюю цифру числа

Выводим результат

Объяснение:

Элемент «ИЛИ» (OR)

По другому, его зовут «дизъюнктор».

Любуемся:

Элемент ИЛИ

Опять же, название говорит само за себя.

На выходе возникает единица, когда на один ИЛИ на другой ИЛИ на оба сразу входа подана единица. Этот элемент можно назвать также элементом «И» для негативной логики: ноль на его выходе бывает только в том случае, если и на один и на второй вход поданы нули.

Едем дальше. Дальше у нас очень простенький, но очень необходимый элемент.

Элемент «НЕ» (NOT)

Чаще, его называют «инвертор».

Элемент НЕ

Надо чего-нибудь говорить по поводу его работы?

Ну тогда поехали дальше. Следующие два элемента получаются путем установки инвертора на выход элементов «И» и «ИЛИ».

Элемент «И-НЕ» (NAND)

Элемент И-НЕ

Элемент И-НЕ работает точно так же как «И», только выходной сигнал полностью противоположен. Там где у элемента «И» на выходе должен быть «0», у элемента «И-НЕ» - единица. И наоборот. Э то легко понять по эквивалентной схеме элемента:

Эквивалентная схема элемента И-НЕ