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

2

Ответы и объяснения

2013-10-07T17:43:46+04:00
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.
2013-10-07T17:55:48+04:00
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.