Написать программу на Паскале для вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. Результат должен выводиться в денежном формате, например, 145руб. 30коп.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a, b: real;
c: integer;
begin
write('Введите стоимость тетради - '); readln (a);
write('Введите стоимость обложки - '); readln (b);
write('Введите кол-во тетрадей - '); readln (c);
if (a <= 0) or (b <= 0) or (c <= 0) then exit;
writeln;
write('ИТОГО: ', trunc(c * (a + b)), ' руб. ', round(((c * (a + b)) - (trunc(c * (a + b))))*100), ' коп.');
end.