ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

#Wolf#

Цитата:

1) Написать программу, которая после введенного с клавиатуры числа (от 1 до 999) , обозначающего денежную еденицу, дописывает слово "рубль" в правильной форме. (Например 5 рублей, 21 рубль)

Код:

var
  r: string;
  s: Char;
begin
  Readln(r);
  s := r[Length(r)];
  if r[Length(r)-1] = '1' then Writeln(r+' рублей') else
  if s = '1' then Writeln(r+' рубль') else
  if (s = '2') or (s = '3') or (s = '4') then Writeln(r+' рубля') else
  Writeln(r+' рублей');
end;