Question

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

Answer 1

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.