Если число нечётное и его удвоение не приведет к выходу за 32767, удвоить его - Pascal ABC
Формулировка задачи:
помогите пожалуйста неполучается
1)Дано натуральное число n. Если число нечётное и его удвоение не приведет к выходу за 32767 (двухбайтовое целое число со знаком), удвоить его, иначе – оставить без изменения.
Чтобы удовлетворить условию удвоения, число n должно быть нечетным и меньше 16384.
1. Ввести число n
2. Если число n нечетное и меньше 16384, то n := n * 2
3. Вывод n
4. Конец
2)Программа случайного предсказания одного из десяти вариантов ближайшего будущего с вероятностью 1/20, в остальных случаях – Вы «неудачник».
Решение задачи: «Если число нечётное и его удвоение не приведет к выходу за 32767, удвоить его»
textual
Листинг программы
Var N:byte; Begin WriteLn('Предсказание будущего!'); Randomize;N:=Random(20)+1; {N-случайное число от 1 до 20} WriteLn; Write('Вас ожидает_'); Case N of 1: WriteLn('счастье'); 6: WriteLn('здоровье'); 2: WriteLn('пятерка'); 7: WriteLn('деньги'); 3: WriteLn('дорога'); 8: WriteLn('любовь'); 4: WriteLn('двойка'); 9: WriteLn('встреча'); 5: WriteLn('болезнь'); 10: WriteLn('мама') Else WriteLn('неудача') end; WriteLn('Нажми клавишу Enter'); ReadLn END.
Объяснение кода листинга программы
В данном коде на языке Pascal ABC происходит следующее:
- Выводится сообщение
Предсказание будущего!
- С помощью функции Randomize и переменной N инициализируется генератор случайных чисел.
- Выводится сообщение
Вас ожидает_
. - С помощью оператора Case происходит проверка значения переменной N и вывод соответствующего сообщения.
- Если значение N равно 1, выводится сообщение
счастье
. - Если значение N равно 2, выводится сообщение
здоровье
. - Если значение N равно 3, выводится сообщение
дорога
. - Если значение N равно 4, выводится сообщение
любовь
. - Если значение N равно 5, выводится сообщение
болезнь
. - Если значение N равно 6, выводится сообщение
деньги
. - Если значение N равно 7, выводится сообщение
встреча
. - Если значение N равно 8, выводится сообщение
любовь
. - Если значение N равно 9, выводится сообщение
встреча
. - Если значение N равно 10, выводится сообщение
мама
. - Если значение N не входит в диапазон от 1 до 10, выводится сообщение
неудача
. - Выводится сообщение
Нажми клавишу Enter
. - С помощью функции ReadLn происходит чтение ввода пользователя.
- Код завершается.