По данному числу вывести РУБЛЕЙНапример ввел число 5 после Enter

По заданному числу вывести РУБЛЕЙ
К примеру ввел число 5 после Enter вышло 5 рублей.

Задать свой вопрос
1 ответ
Var 
  s: integer;
  t: string;
begin  
  write('Введите сумму: '); 
  read(s); 
  case (s mod 10) of
    1: t:=' рубль';
    2..4: t:=' рубля';
    0, 5..9: t:=' рублей';
    else t:='no';
  end;  
  write(s,t);
end.

---------------Пример:--------------
Введите сумму: 5
5 рублей

Введите сумму: 91
91 рубль
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт