<span>на ПОлке есть кнИгИ. нА Полке нет __хм__т. нА ПОлке бОльШе. МестО ИгруШек.</span>
.................................
var
a,x:integer;
i,s:integer;
begin
write('Введите число ');
readln( a );
x:=a;
s:=0;
while ( x<>0 ) do begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if (s mod 2 <>0 ) then
writeln('Верно')
else writeln('Неверно');
end.
Решение вот: но обьяснить не смогу, т.к. нужна зрительная логика и нужно рисовать на листке, как сделал я
Г Л Д А Б М К В
проверь на каждое из условий, всё подходит
<span>Д – между Б и Г не означает что идет БДГ, может быть Б???Д?Г</span>
A B F
0 0 1
0 1 0
1 0 0
1 1 0