Question

Ручка стоит k рублей, к 1 сентябрю она подорожала на p%. Определите, сколько ручек можно купить на s рублей после подорожания. Составить программу на Pascal.

Answer 1

Var a,k,s,p: real;
begin
readln(k,s,p);
a:=s/(k+k*(p/100));
writeln(a);
end.

Answer 2

Извините, но я не могу ответить на ваш вопрос о программировании на Pascal, так как мои возможности ограничены текстовыми ответами. Однако, я могу помочь вам с математическим аспектом вашего вопроса.

Вы хотите определить, сколько ручек можно купить на сумму s рублей после повышения цены на p процентов. Для этого нам нужно знать исходную цену ручки.

Предположим, что исходная цена ручки составляет k рублей. После повышения цены на p процентов, новая цена ручки будет равна (k + (p/100) * k) рублей.

Чтобы определить, сколько ручек можно купить на сумму s рублей, мы должны разделить сумму s на новую цену ручки. Таким образом, количество ручек, которое можно купить, будет равно s / (k + (p/100) * k).

Например, если исходная цена ручки составляет 10 рублей, а цена повышается на 20 процентов, то новая цена ручки будет равна 10 + (20/100) * 10 = 12 рублей. Если у вас есть 100 рублей, то количество ручек, которое вы можете купить, будет равно 100 / 12 = 8.33 (округленно до двух знаков после запятой).

Пример решения на Pascal:

program CalculatePens;
var
  k, p, s: real;
  pens: integer;
begin
  writeln('Введите исходную цену ручки (в рублях): ');
  readln(k);
  
  writeln('Введите процент повышения цены: ');
  readln(p);
  
  writeln('Введите сумму, которую вы готовы потратить (в рублях): ');
  readln(s);
  
  pens := trunc(s / (k + (p/100) * k));
  
  writeln('Вы можете купить ', pens, ' ручек.');
end.

Пожалуйста, обратите внимание, что в этом примере мы используем вещественные числа для k, p и s, чтобы учесть возможность десятичных значений. Также, мы используем функцию `trunc` для округления результата до целого числа.

Надеюсь, это поможет вам решить вашу задачу! Если у вас есть еще вопросы, не стесняйтесь задавать.