Question

создайте программу которая запрашивает однозначное число и сообщает его название
Однозначное число: 8
Это число восемь
на паскале плиз

Answer 1

Program v1;
Var  n: integer;
 Begin 
 Write ('Введите однозначное число: '); 
 Readln(n);  
Case n of 
 1: Write ('Единица');
 2: Write ('Два'); 
3: Write ('Три'); 
4: Write ('Четыри');
 5: Write ('Пять');
 6: Write ('Шесть'); 
7: Write ('Семь'); 
8: Write ('Восемь'); 
9: Write ('Девять') 
 else Write ('Вы ввели не однозначное число!!!');End;
End.