Дано трехзначное натуральное число. Написать программку, которая определяет правильно ли, что

Дано трехзначное натуральное число. Написать программку, которая определяет правильно ли, что сумма цифр этого числа является нечетной ( число вводится с клавиатуры).

Задать свой вопрос
1 ответ
Var a,s:integer;begin readln(a); s:=a div 100+a div 10 mod 10+a mod 10; if s mod 2=1 then writeln('Правильно. s = ',s,' - нечётна') else writeln('Нет. s = ',s,' - чётна')end.
Пример:251Нет. s = 8 - чётна
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт