Логическая операция «и–не» принимает истинное значение, если выберите один ответ: 1. если хотя бы одно из исходных высказываний ложное 2. такой функции не существует 3. данную функцию нельзя реализовать 4. все входные высказывания истинные
1. Если буквально по тексту задания, то число должно быть должно быть однозначным, тогда число будет соответствовать цифре.
2. Если имелось ввиду, что вводится символ и надо выяснить является ли введенный символ цифрой, то можно применить функцию StrToInt от введенного символа, если в результате получится цифра, то вводили символ - цифру.
Для первого варианта можно попробовать такое решение:
Var a :integer; Begin writeln('Введите цифру '); readln(a); case a of 0 : writeln ('ноль'); 1 : writeln ('один'); 2 : writeln ('два'); 3 : writeln ('три'); 4 : writeln ('четыре'); 5 : writeln ('пять'); 6 : writeln ('шесть'); 7 : writeln ('семь'); 8 : writeln ('восемь'); 9 : writeln ('девять') else writeln ('Это число не цифра'); end; end.
