Question

 составьте программу, проверяющую, верно ли утверждение, что сумма цифр, введенного вами числа, является четным

Answer 1

Program chet;
var
    sum:integer;
    a,b:integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
sum:=a+b;
If (sum mod 2=0) then writeln('Чётное')
Else writeln('Не чётное');
End.

cbc498f873790c351f20af2edc8bd47a.pas

Answer 2

var a , b ,c:integer;
begin
writeln('Введите первое число:');
readln(a);
writeln('Введите второе число:');
readln(b);
c:=a+b;
if (c mod 2)=0 then writeln( 'Сумма чисел четное')
else writln('Сумма чисел нечетное');
end.

cbc498f873790c351f20af2edc8bd47a.pas