Написать программу Паскаль, для вычисления стоимости покупки трех разных тетрадей и трех одинаковых обложек (к ним красиво оформить вывод результата работы программы)

2 Дек 2019 в 19:44
159 +1
0
Ответы
1
program PurchaseCost;
var
notebook1, notebook2, notebook3, cover: real;
totalCost: real;
begin
notebook1 := 50; // стоимость первой тетради
notebook2 := 60; // стоимость второй тетради
notebook3 := 70; // стоимость третьей тетради
cover := 25; // стоимость обложки
totalCost := (notebook1 + notebook2 + notebook3) + 3 * cover; // вычисление общей стоимости
writeln('------------ Покупка учебных принадлежностей ------------');
writeln('Стоймость покупки трех тетрадей: ', notebook1 + notebook2 + notebook3:0:2);
writeln('Стоимость трех обложек: ', 3 * cover:0:2);
writeln('Общая стоимость покупки: ', totalCost:0:2);
writeln('----------------------------------------------------------');
end.

При запуске программы будет выведено:

------------ Покупка учебных принадлежностей ------------
Стоимость покупки трех тетрадей: 180.00
Стоимость трех обложек: 75.00
Общая стоимость покупки: 255.00
----------------------------------------------------------
19 Апр 2024 в 00:17
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир