Регистрация Спросить otvet5GPT
Бегемотик397
17.08.2021 01:46
Информатика
Есть ответ 👍

Написать программу в паскале.вводится число от 1 до 1000 вывести его в текстовой форме .

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

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

Катя388891
Катя388891
4,6(48 оценок)
Pascalabc.net 3.4.2, сборка 1859 от 08.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readinteger('n=');

  if n > = 1000 then print('одна тысяча')

  else

  begin

    var d1 : = n mod 10;

    var d2 : = n div 10 mod 10;

    var d3 : = n div 100;

    var s : = '';

    case d3 of

      1: s : = 'сто';

      2: s : = 'двести';

      3: s : = 'триста';

      4: s : = 'четыреста';

      5: s : = 'пятьсот';

      6: s : = 'шестьсот';

      7: s : = 'семьсот';

      8: s : = 'восемьсот';

      9: s : = 'девятьсот';

    end;

    if d2 = 1 then

    begin

      case d1 of

        0: s += ' десять';

        1: s += ' одиннадцать';

        2: s += ' двенадцать';

        3: s += ' тринадцать';

        4: s += ' четырнадцать';

        5: s += ' пятнадцать';

        6: s += ' шестнадцать';

        7: s += ' семнадцать';

        8: s += ' восемнадцать';

        9: s += ' девятнадцать';

      end;

      trimleft(s).println

    end

    else

    begin

      case d2 of

        0: s += '';

        2: s += ' двадцать';

        3: s += ' тридцать';

        4: s += ' сорок';

        5: s += ' пятьдесят';

        6: s += ' шестьдесят';

        7: s += ' семьдесят';

        8: s += ' восемьдесят';

        9: s += ' девяносто';

      end;

      s : = trimleft(s);

      case d1 of

        1: s += ' один';

        2: s += ' два';

        3: s += ' три';

        4: s += ' четыре';

        5: s += ' пять';

        6: s += ' шесть';

        7: s += ' семь';

        8: s += ' восемь';

        9: s += ' девять';

      end;

      trimleft(s).println

    end

  end

end.

Tolapula
Tolapula
4,4(49 оценок)
Раз уж  5 не  больше 10-ти, то вначале, но потом это заменяется на , так что =)

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

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

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS