Регистрация
Ditroid
25.08.2020 17:38
Информатика
Есть ответ 👍

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

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

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

megamozg40
megamozg40
4,4(51 оценок)
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.

Yana18102001
Yana18102001
4,8(63 оценок)
Я в компах вообще не разбираюсь!

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