Question

Напишите программу, на языке Паскаль, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «копейка» в правильной форме, например: 23 копейки, 41 копейка, 50 копеек и т. д. Подумайте, от чего это зависит? Помогите пожалуйста!!!

Answer 1

var

 n: Integer;

begin

 Write('Введите число: ');

 Read(n);

 Write(n, ' ');

 if (n mod 10 in [5..9]) or (n mod 10 = 0) or (n in [11..19]) then

   WriteLn('копеек')

 else if n mod 10 = 1 then

   WriteLn('копейка')

 else

   WriteLn('копейки')

end.

Answer 2

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

Вот пример программы на языке Паскаль, которая решает данную задачу:

program MoneyConverter;

var
  amount: integer;
  word: string;

begin
  write('Введите число от 1 до 99: ');
  readln(amount);

if (amount < 1) or (amount > 99) then
  begin
    writeln('Введенное число должно быть от 1 до 99.');
    exit;
  end;

if (amount mod 10 = 1) and (amount <> 11) then
    word := 'копейка'
  else if (amount mod 10 >= 2) and (amount mod 10 <= 4) and ((amount div 10) mod 10 <> 1) then
    word := 'копейки'
  else
    word := 'копеек';

writeln(amount, ' ', word);
end.

В этой программе мы сначала запрашиваем у пользователя ввод числа в диапазоне от 1 до 99. Затем мы проверяем, соответствует ли введенное число условиям. Если введенное число не находится в указанном диапазоне, программа выводит сообщение об ошибке и завершается.

Если введенное число удовлетворяет условиям, мы используем операторы if-else для определения правильной формы слова "копейка" в зависимости от числа. Мы проверяем остаток от деления на 10, чтобы узнать последнюю цифру числа, и дополнительно проверяем, чтобы две последние цифры числа не равнялись 11 (чтобы исключить исключение для чисел 11, 111, 211 и т. д.).

В зависимости от результата проверки, мы присваиваем переменной `word` соответствующее значение: "копейка", "копейки" или "копеек". Затем мы выводим введенное число и правильную форму слова "копейка" с помощью оператора `writeln`.

Надеюсь, эта программа поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь задавать их.