Ответ(ы) на вопрос:
ГостьProgram prog;
Uses crt;
var a,b: real;
n: integer;
begin
clrscr;
write('Цена одной тетради = ');
readln(a);
write ('Цена одной обложки = ');
readln(b);
write ('Количество тетрадей = ');
readln(n);
writeln;
writeln('Стоимость покупки = ', (a+b)*n);
end.
Не нашли ответ?
Похожие вопросы