Написать программу на Паскале для вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. Результат должен выводиться в денежном формате, например, 145руб. 30коп.
Написать программу на Паскале для вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. Результат должен выводиться в денежном формате, например, 145руб. 30коп.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CostOfPurchase;
var
numOfNotebooks, priceNotebook, priceCover: integer;
totalCost: real;
begin
write('Введите количество тетрадей: ');
readln(numOfNotebooks);
write('Введите цену одной тетради: ');
readln(priceNotebook);
write('Введите цену одной обложки: ');
readln(priceCover);
totalCost := (numOfNotebooks priceNotebook) + (numOfNotebooks priceCover / 100);
writeln('Стоимость покупки: ', trunc(totalCost), ' руб. ', round(totalCost * 100) mod 100, ' коп.');
end.