Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и...

Question

Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и false в противном случае.
а) Сумма цифр трёхзначного числа х является чётным числом.

Answer 1

Program n1;
var a,b,c,x: integer;
begin
readln(x);
a := x div 100;
b := x div 10 mod 10;
c := x mod 10;
if ((a+b+c) mod 2=0) then writeln('true')
else writeln('false');
end.