»

Дано целое трехзначное число .Определить все ли числа в нем нечетны

Дано целое трехзначное число .Определить все ли цифры в нем нечетны .Паскаль

Задать свой вопрос
1 ответ

var a, b, c , d : integer;

begin

read(a);

b := a mod 10;

c := a div 10 mod 10;

d := a div 100;

if (b mod 2 = 1) and (c mod 2 = 1) and (d mod 2 = 1) then

writeln('Нечетны')

else

writeln('Есть четные');

end.

, оставишь ответ?
Имя:*
E-Mail:


Похожие вопросы
Новое NEW
Особенности получения образования дистанционно

Статьи

Домашнее обучение: плюсы и минусы

Статьи

Основные гуманитарные науки

Статьи

Как научиться программировать?

Информатика

5 причин получить диплом

Статьи

Последние вопросы
помоги мне пожалуста прш 869*(61124-488*125)-50974

Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор

География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'

Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести

Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить

Математика.
Здравствуйте Меня зовут Виталий, я AdOps-аналитик компании  Adfinity.pro Заинтересовал ваш проект obrazovalka.com Думаю сможем увеличить

Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной

Литература.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной

Литература.
В семье из трех человек три электронных устройства: ноутбук, планшет и

Разные вопросы.
Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен

Кыргыз тили.
Облако тегов
астрономия биология водород гравитация древний египет египет история космос марс планеты физика химия
Весь список тегов

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

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

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

Войти на сайт