Решите задачу дано двузначное число n является ли сумма цифр Этого числа чётной (нечётной). уточните
Если сумма нечетного в ответе Запишите 1 если четное 0​

Решение на языке Pascal

program pr;

var n,a,b,c, sum:integer;

begin

readln (n);

a:=n div 100;

b:=n mod 100 div 10

c:=n mod 10

sum:=a+b+c;

if  sum mod 2 = 0 then writeln ('Сумма цифр четная') else writeln('Сумма цифр четная');

readln;

end.

Объяснение:

вроде как-то так ;-;