Составить функцию которая определяет верно ли что сумма его цифр четное число.
Пример:
Введите число 136 сумма цифр четная........
На языке Pascal.ABC.NET

Предыдущий
вопрос Следующий
вопрос

function IsSumEven(num: integer): boolean;
var
sum, digit: integer;
begin
sum := 0;
num := Abs(num);

while num > 0 do
begin
digit := num mod 10;
sum := sum + digit;
num := num div 10;
end;

if sum mod 2 = 0 then
IsSumEven := True
else
IsSumEven := False;
end;

// Пример использования
var
num: integer;
begin
write('Введите число: ');
readln(num);

if IsSumEven(num) then
writeln('Сумма цифр четная')
else
writeln('Сумма цифр нечетная');
end.