angel0000l
04.07.2020 17:11

При выводе числовой информации с поясняющим текстом часто возникает проблема согласования выводимого значения и окончания поясняющего текста. например, в зависимости от числового значения, поясняющий текст к денежной величине может быть «рубль», «рублей» или «рубля». очевидно, что окончание поясняющего слова определяется двумя последними цифрами числа, что отражено в таблице. 2 последние цифры числа поясняющий текст *0, *5, *6, *7, *8, *9, 11, 12, 13, 14 рублей *1 рубль *2, *3, *4 рубля на место звездочки можно подставить любую цифру. составьте программу, которая обеспечивает ввод числа и вывод числа с поясняющим текстом (например, вводится число 35, выводится 35 рублей). паскаль

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
яна7933
19.08.2020 23:55
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота