Question

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

Answer 1

programm a1;
var pt, po, col, res: real;begin  Writeln('Введите цену одной тетради: ');  Readln(pt);  Writeln('Введите цену одной обложки: ');  Readln(po);  Writeln('Введите количество комплектов: ');  Readln(col);  res:=col*(pt+po);  Writeln('Сумма: '+res);end;