Модифицируйте программу таким образом чтобы она выводила название чисел в диапазоне от 1 до 99

Var n:integer;
a:array[1..27] of string[15]=
(один,два,три,четыре,пять,шесть,семь,восемь,девять,
десять,одиннадцать,двенадцать,тринадцать,четырнадцать,
пятнадцать,шестнадцать,семнадцать,восемнадцать,девятнадцать,
двадцать,тридцать,сорок,пятьдесят,шестьдесят,семьдесят,
восемьдесят,девяносто);
begin
write(N (1..99) = );
readln(N);
if (n>=1)and(n then writeln(a[n])
else begin
write(a[n div 10 + 18]);
if n mod 10 0 then write( ,a[n mod 10]);
writeln;
end;
end.

Пример:
N (1..99) = 46
сорок шесть

Вопрос

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.

Источник: botanim.com

Модифицируйте программу таким образом, чтобы она выводила название чисел в диапазоне от 1 до 99 …

Модифицируйте программу таким образом, чтобы она выводила название чисел в диапазоне от 1 до 99 (ну кассовый аппарат же это делает на чеках!). Подсказка №1. Для выделения числа десятков используйте хорошо знакомую вам операцию «остаток от деления». Т.е., если в переменнойn находится введенное число, то получить число десятков очень просто –d:=n mod 10; Подсказка №2. Надо рассмотреть по сути три диапазона чисел: от 1 до 9, от 10 до 19, и от 20 до 99.

Кирилл Щуваткин Вопрос задан 28 сентября 2019 в 5 — 9 классы, true»> Поделиться

  • Комментариев (0)
  • КАК РАБОТАЮТ ЧИСЛА С ПЛАВАЮЩЕЙ ТОЧКОЙ | ОСНОВЫ ПРОГРАММИРОВАНИЯ

    Источник: matfaq.ru

    Модифицируйте программу таким образом, чтобы она выводила название чисел в диапазоне от 1 до 99 (ну кассовый аппарат же это делает на подсказка №1. для выделения числа десятков используйте хорошо знакомую вам операцию «остаток от деления». т.е., если в переменнойn находится введенное число, то получить число десятков просто –d: =n mod 10; подсказка №2. надо рассмотреть по сути три диапазона чисел: от 1 до 9, от 10 до 19, и от 20 до 99.

    Var n:integer;
    a:array[1..27] of string[15]=
    (‘один’,’два’,’три’,’четыре’,’пять’,’шесть’,’семь’,’восемь’,’девять’,
    ‘десять’,’одиннадцать’,’двенадцать’,’тринадцать’,’четырнадцать’,
    ‘пятнадцать’,’шестнадцать’,’семнадцать’,’восемнадцать’,’девятнадцать’,
    ‘двадцать’,’тридцать’,’сорок’,’пятьдесят’,’шестьдесят’,’семьдесят’,
    ‘восемьдесят’,’девяносто’);
    begin
    write(‘N (1..99) = ‘);
    readln(N);
    if (n>=1)and(n <=19)
    then writeln(a[n])
    else begin
    write(a[n div 10 + 18]);
    if n mod 10 <> 0 then write(‘ ‘,a[n mod 10]);

    Читайте также:
    Использование программы Outlook express

    Заполнить массив случайными числами. Генератор уникальных случайных чисел. rand. srand ДЗ #7


    writeln;
    end;
    end.

    Пример:
    N (1..99) = 46
    сорок шесть

    0,0(0 оценок)

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

    Зима — замечательное время года, которое любят и взрослые и дети!

    Источник: mozgotvet.com

    Рейтинг
    ( Пока оценок нет )
    Загрузка ...
    EFT-Soft.ru