»

С клавиатуры вводится 4xзначное число необходимо вывести ответ "да", если все

С клавиатуры вводится 4xзначное число необходимо вывести ответ "да", если все его числа нечетные, и ответ "нет" в остальных случаях. Если введено не 4хзначное число, то должно быть введено извещенье " наверняка число". Напишите программку, пожалуйста

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

//PascalABC.NET 3.4.2

begin

 var num := readinteger();

 if (num in [1000..9999]) then

 begin

   for var i := 1 to 4 do

     if (num.ToString[i].ToDigit mod 2 lt;gt; 0) then  

     begin

       write('нет');

       exit;

     end;

   write('да');

 end

 else

   write(' наверняка число');

end.

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


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

Статьи

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

Статьи

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

Статьи

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

Информатика

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

Статьи

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

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

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

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

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

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

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

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

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

Кыргыз тили.
За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза

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

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

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

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

Войти на сайт