|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.01.2017, 17:14 | #1 |
Новичок
Джуниор
Регистрация: 26.01.2017
Сообщений: 7
|
Вывести на экран 1 или 0 в зависимости от того, имеют три заданных целых числа одинаковую четность или нет. Delphi. Проверить задачу на ошибки
Здравствуйте! Просьба проверить на ошибки.
Если таковые имеются. Исправить. Спасибо. Вывести на экран 1 или 0 в зависимости от того, имеют три заданных целых числа одинаковую четность или нет. Код:
|
26.01.2017, 17:19 | #2 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,949
|
Код:
|
26.01.2017, 23:58 | #3 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,537
|
Стуlент, все правильно. Хорошо решаешь, чего сомнения ?
Я бы ввел доп. переменную, не нужно было бы операцию mod делать 2 раза. Код:
Последний раз редактировалось digitalis; 27.01.2017 в 00:00. |
27.01.2017, 09:45 | #4 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,515
|
изощряться так изощряться
1. вариант от digitalis но без переменной Код:
ДВА числа имеют одинаковую четность это (a mod 2) = (b mod 2) ну а три Код:
программа — запись алгоритма на языке понятном транслятору
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверить,или есть среди чисел А,В,С равные (вывести ответ "да" или "нет"). | Vrpsty | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 23.10.2016 05:20 |
проверить массив симметричен или нет | kalosha-stepa | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 19.09.2012 22:13 |
Даны три различных целых числа, определить, какое из них (первое, второе или третье); | Genius94 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 15.06.2012 07:24 |
Shelllistview...проверить папка или нет? | Port 111 | Общие вопросы Delphi | 0 | 31.05.2012 17:57 |
True или False, в зависимости от того, имеют три данных числа одинаковую четность | DjVidan | Помощь студентам | 4 | 12.10.2008 22:02 |