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