Написать программу Паскаль, для вычисления стоимости покупки трех разных тетрадей и трех одинаковых обложек (к ним красиво оформить вывод результата работы программы)
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 ----------------------------------------------------------
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
----------------------------------------------------------