Если число нечётное и его удвоение не приведет к выходу за 32767, удвоить его - Pascal ABC

Формулировка задачи:

помогите пожалуйста неполучается 1)Дано натуральное число n. Если число нечётное и его удвоение не приведет к выходу за 32767 (двухбайтовое целое число со знаком), удвоить его, иначе – оставить без изменения. Чтобы удовлетворить условию удвоения, число n должно быть нечетным и меньше 16384. 1. Ввести число n 2. Если число n нечетное и меньше 16384, то n := n * 2 3. Вывод n 4. Конец 2)Программа случайного предсказания одного из десяти вариантов ближайшего будущего с вероятностью 1/20, в остальных случаях – Вы «неудачник».
Var N:word;
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.

Код к задаче: «Если число нечётное и его удвоение не приведет к выходу за 32767, удвоить его - Pascal ABC»

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.

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ