Question

Вводится целое число, если это цифра, то определить четная она или нет, а если число, то определить попадает ли оно в диапазон от 10 до 100, если нет, то выдать соответствующее сообщение.
Паскаль

Answer 1

Ответ:

• begin
• var n := ReadInteger('n:');
• if n in 0..9 then Print('Это',n.IsEven?'чётная':'нечётная','цифра')
• else Print('Это число',n in 10..100?'попадает':'не попадает');
• end.

Пример работы: