составить программку значение 1 если обозначенное выражение является истинным и 0

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт