Question

Мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей. Составить программу, которая могла бы подсчитать стоимость всей покупки паскаль

Answer 1

Ответ:

const

       costtetradi = 100;

       costoblozhki = 50;

var

     tetradi, oblozhki : integer;

begin

       write("Введите кол-во тетрадей : ");

       readln(tetradi);

       write("Введите кол-во обложек : ");

       readln(oblozhki);

       writeln();

       writeln("Совершена покупка на ", oblozhki*costoblozhki+tetradi*costtetradi, " руб.");

end;

Объяснение:

Answer 2

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

pascalCopy code
program CalculateTotalCost;

var
  numNotebooks, numCovers: integer;
  costPerNotebook, costPerCover, totalCost: integer;

begin
  { Ввод данных }
  writeln('Введите количество купленных тетрадей: ');
  readln(numNotebooks);
  writeln('Введите количество купленных обложек: ');
  readln(numCovers);

  { Установите стоимость каждой тетради и обложки }
  costPerNotebook := 100;
  costPerCover := 50;

  { Вычислите общую стоимость покупки }
  totalCost := (numNotebooks * costPerNotebook) + (numCovers * costPerCover);

  { Вывод результата }
  writeln('Общая стоимость покупки: ', totalCost, ' рублей.');
end.

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