Question

Составить и записать программу решения задачи: У Пети есть х руб. Петя купил несколько тетрадей и несколько карандашей. Вычислить стоимость покупки и сдачу. В ПАСКАЛЕ!

Answer 1

Var x,k,p:integer; {k-сколько отдал за карандаши, p -сколько за тетради}

begin

read(x,k,p);

Writeln("Стоимость покупки: ",k+p," сдача: ",x-(k+p));

end.

 

 

 

 

 

 

 

 

 

Answer 2

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

program Purchase;

var
  x, n, m: integer;
  notebookPrice, pencilPrice, totalCost, change: real;

begin
  // Ввод данных
  writeln('Введите количество рублей, которое есть у Пети: ');
  readln(x);
  writeln('Введите стоимость одной тетради: ');
  readln(notebookPrice);
  writeln('Введите стоимость одного карандаша: ');
  readln(pencilPrice);
  writeln('Введите количество купленных тетрадей: ');
  readln(n);
  writeln('Введите количество купленных карандашей: ');
  readln(m);
  
  // Вычисление стоимости покупки
  totalCost := n * notebookPrice + m * pencilPrice;
  
  // Вычисление сдачи
  change := x - totalCost;
  
  // Вывод результатов
  writeln('Стоимость покупки: ', totalCost:0:2);
  writeln('Сдача: ', change:0:2);
end.

Программа принимает входные данные от пользователя: количество рублей у Пети (`x`), стоимость одной тетради (`notebookPrice`), стоимость одного карандаша (`pencilPrice`), количество купленных тетрадей (`n`) и количество купленных карандашей (`m`).

Затем программа вычисляет стоимость покупки (`totalCost`) как произведение стоимости одной тетради на количество купленных тетрадей, плюс произведение стоимости одного карандаша на количество купленных карандашей.

Далее программа вычисляет сдачу (`change`) как разность между количеством рублей у Пети и стоимостью покупки.

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