Question

С клавиатуры вводится натуральное число k (1 ≤ k ≤ 9999), определяющее стоимость товара в копейках. Выразить стоимость в рублях и копейках.НА ПАСКАЛЕ ПЖ

Answer 1

var

r,k:integer;

begin

readln(k); //Ввод рублей

writeln(k div 100,' рублей ', k mod 100, ' копеек'); //Вывод стоимости товара в рублях и копейках

end.

Answer 2

Для выражения стоимости товара в рублях и копейках вам необходимо разделить введенное значение на 100. Число перед запятой будет обозначать рубли, а число после запятой — копейки.

Вот пример кода на Pascal, который решает данную задачу:

pascalCopy code
program ConvertToRublesAndKopecks;

var
  k: integer;
  rubles, kopecks: integer;

begin
  writeln('Введите стоимость товара в копейках (от 1 до 9999): ');
  readln(k);

  rubles := k div 100;  // Операция деления на 100 даст нам количество рублей
  kopecks := k mod 100; // Операция взятия остатка от деления на 100 даст количество копеек

  writeln('Стоимость товара составляет ', rubles, ' рублей и ', kopecks, ' копеек.');
end.

Обратите внимание, что мы используем оператор div для целочисленного деления и оператор mod для получения остатка от деления. Таким образом, мы разделяем значение на рубли и копейки, как требуется в задаче.