Паскаль. с клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. программа должна напечатать эту сумму прописью. пример: пятнадцать рублей.

149

493

Посмотреть ответы 2

Ответы на вопрос:

nikgtacs59

Информатика

4,6(21 оценок)

Var m, n: integer; s1, s2, s3: string; ms: array[1..9] of string; md: array[1..9] of string; m1: array[11..19] of string; me: array[1..9] of string; flag: boolean; begin flag : = false; { пока ничего не выведено } s1 : = 'рубль'; s2 : = 'рубля'; s3 : = 'рублей'; ms[1] : = 'сто'; ms[2] : = 'двести'; ms[3] : = 'триста'; ms[4] : = 'четыреста'; ms[5] : = 'пятьсот'; ms[5] : = 'пятьсот'; ms[6] : = 'шестьсот'; ms[7] : = 'семьсот'; ms[8] : = 'восемьсот'; ms[9] : = 'девятьсот'; md[1] : = 'десять'; md[2] : = 'двадцать'; md[3] : = 'тридцать'; md[4] : = 'сорок'; md[5] : = 'пятьдесят'; md[6] : = 'шестьдесят'; md[7] : = 'семьдесят'; md[8] : = 'восемьдесят'; md[9] : = 'девяносто'; m1[11] : = 'одиннадцать'; m1[12] : = 'двенадцать'; m1[13] : = 'тринадцать'; m1[14] : = 'четырнадцать'; m1[15] : = 'пятнадцать'; m1[16] : = 'шестнадцать'; m1[17] : = 'семнадцать'; m1[18] : = 'восемнадцать'; m1[19] : = 'девятнадцать'; me[1] : = 'один'; me[2] : = 'два'; me[3] : = 'три'; me[4] : = 'четыре'; me[5] : = 'пять'; me[6] : = 'шесть'; me[7] : = 'семь'; me[8] : = 'восемь'; me[9] : = 'девять'; write('введите целое число от 1 до 1000: '); readln(m); if (m < 1) or (m > 1000) then writeln('шутки шутим? ') else if m = 1000 then writeln('одна тысяча ' + s3) else begin { сотни } n : = m div 100; if n > 0 then begin write(ms[n]); flag : = true end; { десятки } m : = m mod 100; if m = 0 then writeln(' ', s3) else begin if (m > 10) and (m < 20) then begin if flag then write(' '); writeln(m1[m], ' ', s3) end else if m > 0 then begin n : = m mod 10; m : = m div 10; if m > 0 then begin if flag then write(' ') else flag : = true; write(md[m]) end; if n < > 0 then begin { единицы } if flag then write(' '); write(me[n], ' '); case n of 1: writeln(s1); 2..4: writeln(s2); else writeln( s3) end end else writeln(' ', s3) end end end end. тестовое решение: введите целое число от 1 до 1000: 314 триста четырнадцать рублей

KeselMeme

Информатика

4,4(32 оценок)

Ты перезагружал если не получилось отнеси в ремонт

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.