Question

Помогите составить программу паскаль по задаче Один киловатт электроэнергии стоит R рублей. На 1 стирку расходуется S киловатт. Сколько можно сэкономить, если стирать только в выходные (в выходные электроэнергия дешевле на 30%) и все белье можно постирать за 3 стирки?

Answer 1

===== PascalABC.NET =====

begin

 var R := ReadReal('Стоимость 1 квт-ч, руб:');

 var S := ReadReal('Расход энергии на одну стирку, квт-ч:');

 var РасходБудни := 3 * S * R;

 var Экономия := 0.3 * РасходБудни;

 Println('Экономия, руб:', Round(Экономия, 2))

end.

Answer 2

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

pascalCopy code
program ElectricitySavings;

var
  R, S, totalCost, weekendCost, weekdayCost, savings: real;
  numWeekendWashes, numWeekdayWashes, totalWashes: integer;

begin
  // Ввод данных
  writeln('Введите стоимость 1 киловатт-часа электроэнергии (в рублях): ');
  readln(R);
  
  writeln('Введите количество киловатт-часов, расходуемых на 1 стирку: ');
  readln(S);
  
  // Расчет стоимости стирки в выходные и будние дни
  weekendCost := S * R; // Стоимость стирки в выходные дни (без скидки)
  weekdayCost := weekendCost * 1.3; // Стоимость стирки в будние дни (со скидкой 30%)
  
  // Расчет общей стоимости и количества стирок
  totalCost := weekendCost * 3 + weekdayCost * 4; // Общая стоимость 7 стирок (3 выходных + 4 будних)
  totalWashes := 7;
  
  // Расчет количества стирок и сэкономленных денег при стирке только в выходные
  numWeekendWashes := totalWashes;
  numWeekdayWashes := 0;
  savings := totalCost - weekendCost * numWeekendWashes;
  
  // Вывод результатов
  writeln('Стоимость стирки в выходные дни: ', weekendCost:0:2, ' руб.');
  writeln('Стоимость стирки в будние дни: ', weekdayCost:0:2, ' руб.');
  writeln('Общая стоимость ', totalWashes, ' стирок: ', totalCost:0:2, ' руб.');
  writeln('Количество стирок в выходные дни: ', numWeekendWashes);
  writeln('Количество стирок в будние дни: ', numWeekdayWashes);
  writeln('Сэкономленные деньги при стирке только в выходные: ', savings:0:2, ' руб.');
end.

Пожалуйста, обратите внимание, что эта программа представляет собой обычный текст, и для ее выполнения вам потребуется компилятор Паскаля. Вы можете скопировать этот код и выполнить его в среде разработки для языка Паскаль, такой как Free Pascal или Turbo Pascal.