Вводится целое число, если это цифра, то определить четная она или нет, а если число, то...

Question

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

Comments

Могу написать на питоне, сам потом переведешь?

Answer 1

Ответ:

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

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