Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 02.06.2019
Сообщений: 30
1

Определить, можно ли с использованием только операций «прибавить 3» и «прибавить 5» получить из числа 1 число N

24.12.2019, 18:22. Показов 3382. Ответов 1

Author24 — интернет-сервис помощи студентам
Помогите, пожалуйста, написать код этой задачи на языке паскаль.

Определить можно ли с использованием только операций «прибавить 3» и «прибавить 5» получить из числа 1 число N (N - натуральное, не превышает 106). Разумеется, само число 1 получить можно, просто не применяя никаких операций.

Входные данные
Вводится число N.

Выходные данные
Выведите слово YES, если число N можно получить из числа 1, или NO - в противном случае.

Примеры
входные данные
1
выходные данные
YES
входные данные
3
выходные данные
NO
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2019, 18:22
Ответы с готовыми решениями:

Определить, можно ли с использованием только операций «прибавить 3» и «прибавить 5» получить из числа 1 число N
Определить можно ли с использованием только операций «прибавить 3» и «прибавить 5» получить из...

Можно ли с использованием только операций «прибавить 3» и «прибавить 5» получить из числа 1 число N
Определить можно ли с использованием только операций «прибавить 3» и «прибавить 5» получить из...

Если данное целое число оно является отрицательным, то прибавить к нему 5; в противном случае прибавить 10
Дано целое число. Если оно является отрицательным , то прибавить к нему 5; в противном случае...

Если число нечётное, то прибавить 1, если чётное, то вычесть 3, если равно 0, то прибавить 10
Дано целое число. Если число нечётное, то прибавить 1. Если число чётное, то вычесть 3. Если число...

1
Status 418
Эксперт Python
4581 / 2348 / 602
Регистрация: 26.11.2017
Сообщений: 5,264
Записей в блоге: 3
25.12.2019, 00:26 2
Pascal
1
2
3
begin
  Print(ReadInteger in [2,3,5,8] ? 'NO' : 'YES')
end.
0
25.12.2019, 00:26
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2019, 00:26
Помогаю со студенческими работами здесь

К последнему элементу второго массива прибавить последний элемент первого, к предпоследнему - прибавить предпоследний
Объявите в программе два массива 16-битных целых со знаком. Количество элементов массивов должно...

Ко всем нулевым элементам массива прибавить число n, ко всем отрицательным элементам прибавить число k
Дан массив целых чисел в диапазоне от -10000 до 10000. Ко всем нулевым элементам массива прибавить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru