Составить программу значение 1 если указанное высказывание является истинным и 0 в противном случае: сумма цифр данного двузначного числа N является четным числом

Question

Информатика

Никаха

3 октября, 15:57

Составить программу значение 1 если указанное высказывание является истинным и 0 в противном случае: сумма цифр данного двузначного числа N является четным числом

+2

Ответы (1)

Знаете ответ на вопрос?

Арюха · Answer 1

Var n, n1, n2, sum:integer;

Begin

write ('Введите двузначное число: ') ; readln (n) ;

n1:=n div 10;

n2:=n mod 10;

sum:=n1+n2;

if (sum mod 2 = 0) then write ('1')

else writeln ('0') ;

End.