Вывести число прописью

@Tirana_beat · Регистрация: 05.05.2011

Студворк — интернет-сервис помощи студентам

нам домашку задали написать программу в которую вводишь число от 0 до 9 и она его прописью выдаёт. Помогите плиз как сделать

@Высокий · 05.05.2011, 20:13

Pascal

uses crt;
var n: integer;
begin clrscr;
write('ÂÂåäèòå öèôðó: ');
readln(n);
case n of
0: writeln('íîëü');
1: writeln('îäèí');
2: writeln('äâà');
3: writeln('òðè');
4: writeln('÷åòûðå');
5: writeln('ïÿòü');
6: writeln('øåñòü');
7: writeln('ñåìü');
8: writeln('âîñåìü');
9: writeln('äåâÿòü');
end;
readkey
end.

@Tirana_beat · 05.05.2011, 20:17 **[ТС]**

земной вам поклон

@TermiTdk · 16.05.2011, 20:11

А как сделать тоже самое только на миллион чисел?

@Tirana_beat 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 4
		1
	Вывести число прописью 05.05.2011, 19:58. Показов 1787. Ответов 3 Метки нет (Все метки) нам домашку задали написать программу в которую вводишь число от 0 до 9 и она его прописью выдаёт. Помогите плиз как сделать 0

@Tirana_beat 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 4
	05.05.2011, 20:17 [ТС]	3
	земной вам поклон 0

@TermiTdk 0 / 0 / 0 Регистрация: 29.03.2010 Сообщений: 8
	16.05.2011, 20:11	4
	А как сделать тоже самое только на миллион чисел? 0

Опции темы

Вывести число прописью

Решение