Такие задачи проще решать с конца и менять знаки операций на противоположные:
44 /4 команда 2
11+1 команда 1
12/4 команда 2
3+1 команда 1
4/4 команда 2
1
Собираем получившиеся команды с конца: 21212
Ответ: 21212
15 mod 7=15 div 5 - 1 1=0-1
1=-1
результат ложь
Letter.txt,письмо.doc,роза.bmp,crop12.exe
Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>