Записать программу выведения натурального числа n (< =n< =9999) в его словесной записи. например n=2345 - две тысячи триста пятдесят четыре
199
444
Ответы на вопрос:
Яписала для n< =10000. измените для своих данных. uses crt; var n: integer; s1,s2,s3,s4,s5: string; begin clrscr; writeln('введите натуральное число (n< =10000)'); readln(n); if n> 10000 then begin writeln('неверный ввод'); readln; exit; end; {пятая цифра} case n mod 10 of 1: s5: ='один'; 2: s5: ='два'; 3: s5: ='три'; 4: s5: ='четыре'; 5: s5: ='пять'; 6: s5: ='шесть'; 7: s5: ='семь'; 8: s5: ='восемь'; 9: s5: ='девять'; end; {четвертая цифра} if n div 10 mod 10=1 then {четвертая цифра - 1} begin s4: =''; case n mod 10 of 0: s5: ='десять'; 1: s5: ='одиннадцать'; 2: s5: ='двенадцать'; 3: s5: ='тринадцать'; 4: s5: ='четырнадцать'; 5: s5: ='пятнадцать'; 6: s5: ='шестнадцать'; 7: s5: ='семнадцать'; 8: s5: ='восемнадцать'; 9: s5: ='девятнадцать'; end; end else {четвертая цифра не равна 1} case n div 10 mod 10 of 2: s4: ='двадцать'; 3: s4: ='тридцать'; 4: s4: ='сорок'; 5: s4: ='пятьдесят'; 6: s4: ='шестьдесят'; 7: s4: ='семьдесят'; 8: s4: ='восемьдесят'; 9: s4: ='девяносто'; end; {третья цифра} if n div 100 mod 10=0 then s3: ='' else case n div 100 mod 10 of 1: s3: ='сто'; 2: s3: ='двести'; 3: s3: ='триста'; 4: s3: ='четыреста'; 5: s3: ='пятьсот'; 6: s3: ='шестьсот'; 7: s3: ='семьсот'; 8: s3: ='восемьсот'; 9: s3: ='девятьсот'; end; {вторая цифра} if n div 1000 mod 10=0 then s2: ='' else case n div 1000 mod 10 of 1: s2: ='одна тысяча'; 2: s2: ='две тысячи'; 3: s2: ='три тысячи'; 4: s2: ='четыре тысячи'; 5: s2: ='пять тысяч'; 6: s2: ='шесть тысяч'; 7: s2: ='семь тысяч'; 8: s2: ='восемь тысяч'; 9: s2: ='девять тысяч'; end; if n div 10000 =1 then s1: ='десять тысяч' else s1: =''; writeln(s1,' ',s2,' ',s3,' ',s4,' ',s5); readln end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Grazhdankin13.11.2021 05:21
-
juliaked120.08.2022 21:45
-
sapunovegor2216.03.2022 12:40
-
Nikita2000000525.09.2022 23:16
-
kura216502.10.2020 23:29
-
manzharenko1324.06.2023 20:00
-
333unicorn33307.12.2020 13:14
-
Snikers201803.12.2022 02:32
-
Sasha228086526.02.2022 12:39
-
Валера666супер20.10.2021 01:17
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.