Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и...

Question

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

Answer 1

Program lol;
uses crt;
var
ct,co,sum:real;
ko,ky:integer;
begin
writeln('Введите кол-во терадей: ');
read(ky);
writeln('Введите цену за 1 тетрадь: ');
read(ct);
writeln('Введите кол-во обложек: ');
read(ko);
writeln('Введите цену за 1 обложку:');
read(co);
sum:=(ky*ct)+(ko*co);
writeln('Стоимость покупки = ', sum);
end.