По введённому числу вывести его название (числа только натуральные, от 20 до 99)

Question

По введённому числу вывести его название (числа только натуральные, от 20 до 99)

Answer 1

Var n : integer; 
begin 
write('Введите число '); readln(n); 
case n of 
20 : writeln('Двадцать'); 
21 : writeln('Двадцать один'); 
22: writeln('двадцать два '); 
23 : writeln('Двадцать три'); 
24:writeln('Двадцать четыре'); 
24:writeln('Двадцать пять'); 
else writeln('Вы ввели недопустимую число! ') 
end; 
end. 
Чисел брат дофига ну ты понял 
а если вы кейс не проходил то используй просто 
if n=20 then write('Двадцать');
))

Comments

только он сказал не писать так до 99, типо есть какое-то другое ещё решение (кейс прошли)

---

он это учитель)

---

Ну если он скажет решение напиши )

---

ладно, спасибо