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

Для написания программы на Pascal, которая будет добавлять слово "рубль" после введенного с клавиатуры числа, можно использовать следующий код:

program MoneyConverter;

var
  amount: integer;

begin
  writeln('Введите сумму от 1 до 999: ');
  readln(amount);
  
  if (amount < 1) or (amount > 999) then
    writeln('Некорректная сумма. Введите число от 1 до 999.')
  else
  begin
    write(amount, ' ');
    
    if (amount mod 10 = 1) and (amount  11) then
      writeln('рубль')
    else if ((amount mod 10 = 2) or (amount mod 10 = 3) or (amount mod 10 = 4)) and ((amount div 10) mod 10  1) then
      writeln('рубля')
    else
      writeln('рублей');
  end;
end.

Этот код сначала запрашивает у пользователя число от 1 до 999, а затем определяет правильное склонение слова "рубль" в зависимости от введенной суммы. После этого выводится число и слово "рубль" в правильной форме.

Программа использует математические операции для определения правильного склонения слова "рубль" в зависимости от последней цифры числа и его десятков.

program Rubles; var num: integer; begin write('Введите число: '); readln(num);

if (num mod 10 = 1) then

writeln(num, ' рубль')

else if ((num mod 10 >= 2) and (num mod 10

Для написания программы на языке Pascal, которая добавляет правильное склонение слова "рубль" в зависимости от введённого числа, можно воспользоваться следующей логикой:

1. Сначала нужно запросить у пользователя ввод числа от 1 до 999.
2. Затем определить, какое окончание должно быть у слова "рубль" в зависимости от числа:
   • "рубль" — если число оканчивается на 1, но не на 11.
   • "рубля" — если число оканчивается на 2, 3 или 4, но не на 12, 13 или 14.
   • "рублей" — в остальных случаях.

Вот пример программы на языке Pascal в среде разработки Geany:

program RubleSuffix;

uses
  SysUtils;

var
  number: Integer;
  suffix: String;

begin
  Write('Введите число от 1 до 999: ');
  ReadLn(number);

  if (number < 1) or (number > 999) then
  begin
    WriteLn('Число должно быть в диапазоне от 1 до 999.');
    Exit;
  end;

  if (number mod 10 = 1) and (number mod 100  11) then
    suffix := 'рубль'
  else if (number mod 10 >= 2) and (number mod 10 = 12) and (number mod 100