Составить программу,которая запрашивает число и сообщает количество в рублях Пример: 12(вводишь) 12 рублей(получаешь)

2

Ответы и объяснения

2013-03-04T09:55:20+04:00
  • Tlalok
  • почетный грамотей
2013-03-04T12:11:51+04:00

var
  R:integer;
begin
  write('Введите сумму ');
  readln(R);
  if (R mod 100 > 10) and (R mod 100 < 20) then {если число заканчивается на 11-19, то дописываем "рублей"}
  writeln(R, ' рублей')
  else {иначе}
    if R mod 10 = 1 then {если число заканчивается на 1, то дописываем "рубль"}
      writeln(R, ' рубль')
    else
      if (R mod 10 > 1) and (R mod 10 < 5) then {если число заканчивается на 2-4, то дописываем "рубля"}
        writeln(R, ' рубля')
      else
        writeln(R, ' рублей'); {если число заканчивается на 5-9 или 0, то дописываем "рублей"}
end.