|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.03.2010, 15:52 | #1 |
Новичок
Джуниор
Регистрация: 14.03.2010
Сообщений: 1
|
программу,запрашивающая кол-во сотен, десятков и единиц вчисле и выводит его название
Program chislo;
Uses crt; Var a,s,e,d,m: word; Begin Clrscr; Writeln('Введите число: '); Readln(a); s:=a div 100; Case s of 1: Write('Сто '); 2: Write('Двести '); 3: Write('Тристо '); 4: Write('Четыресто '); 5: Write('Пятьсот '); 6: Write('Шестьсот '); 7: Write('Семьсот '); 8: Write('Восемьсот '); 9: Write('Девятьсот '); end; d:=(a div 10) mod 10; Case d of 2: Write('двадцать '); 3: Write('тридцать '); 4: Write('сорок '); 5: Write('пятьдесят '); 6: Write('шестьдесят '); 7: Write('семьдесят '); 8: Write('восемьдесят '); 9: Write('девяносто '); else begin e:=a mod 10; Case e of 1: Write('одинадцать'); 2: Write('двенадцать'); 3: Write('тринадцать'); 4: Write('четырнадцать'); 5: Write('пятнадцать'); 6: Write('шестнадцать'); 7: Write('семнадцать'); 8: Write('восемнадцать'); 9: Write('девятнадцать'); end; end; end; m:=a mod 10; If d<>1 then Case m of 1: Write('один'); 2: Write('два'); 3: Write('три'); 4: Write('четыре'); 5: Write('пять'); 6: Write('шесть'); 7: Write('семь'); 8: Write('восемь'); 9: Write('девять'); end; Writeln; Write('Это число - ',s,d); If d<>1 then Write(m) else Write(e); End. как сделать так, чтобы при вводе числа, к примеру, 209, программа выдавала ответ "двести девять", а не "двести девятнадцать девять" ? |
15.03.2010, 00:26 | #2 | ||
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только... И не значком #. И не РНР-кодом. И не значком цитаты. И не собственными "ручками". Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе... Модератор Цитата:
Цитата:
Последний раз редактировалось mihali4; 15.03.2010 в 00:30. |
||
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Приложение которое выводит список файлов текущего каталога и при клике на любом из файлов откроет его. | LimanSSk | Общие вопросы Delphi | 2 | 18.05.2009 16:03 |
дано трехзначное число.вывести число,полученное при перестановки цифр десятков и сотен исходдного числа. | Kenny_mackormik | Помощь студентам | 7 | 12.03.2009 15:18 |
Написать программу которая выводит таблицу значений функйии | akimbaev | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 01.10.2008 00:21 |
при введении любого номера года нашей эры, программа выводит его название за старым японским календарем | mobi_vic | Общие вопросы C/C++ | 1 | 06.06.2007 12:33 |
Подсчёт кол-ва единиц в столбце | Freddie_X | Microsoft Office Excel | 3 | 10.03.2007 09:38 |