При выводе числовой информации с поясняющим текстом часто возникает проблема согласования выводимого значения и окончания поясняющего текста. Например, в зависимости от числового значения, поясняющий текст к денежной величине м...

При выводе числовой информации с поясняющим текстом часто возникает проблема согласования выводимого значения и окончания поясняющего текста. Например, в зависимости от числового значения, поясняющий текст к денежной величине может быть «рубль», «рублей» или «рубля». Очевидно, что окончание поясняющего слова определяется двумя последними цифрами числа, что отражено в таблице. 2 последние цифры числа Поясняющий текст *0, *5, *6, *7, *8, *9, 11, 12, 13, 14 рублей *1 рубль *2, *3, *4 рубля На место звездочки можно подставить любую цифру. Составьте программу, которая обеспечивает ввод числа и вывод числа с поясняющим текстом (например, вводится число 35, выводится 35 рублей). паскаль
Гость
Ответ(ы) на вопрос:
Гость
var n,b: integer; begin writeln ('vvel n'); read (n); b:= n mod 10; if b=1 then writeln (n,'рубль'); if (b>1) and (b<5) then writeln (n,'рубля') else writeln  (n,'рублей'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы