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

Question

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

Comments

на Паскале?

---

ну да

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.

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.