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

Составить программу значение 1 если указанное высказывание является истинным и 0 в противном случае: сумма цифр данного двузначного числа N является четным числом
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы