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.
объяснение:
1. множество все 2-ых чисел, кратных 5. – описание множества;
{10, 15, , 95} – само множество.
2. множество всех квадратов натуральных чисел.
{1, 4, 9, }
3. множество всех делителей числа 71.
{1; 71}