ПОМОГИТЕ ПОЖАЛУЙСТА! Даю очень много баллов! ПОЖАЛУЙСТА НЕ КОПИРУЙТЕ С ДРУГИХ САЙТОВ, ТАМ...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА! Даю очень много баллов!
ПОЖАЛУЙСТА НЕ КОПИРУЙТЕ С ДРУГИХ САЙТОВ, ТАМ НЕ ПРАВИЛЬНО! И дочитайте текст до конца пожалуйста!
Уличный продавец получает 'a' рублей с продажи каждой из первых 50 газет. С продажи каждой из последующих газет он получает на 20% больше. Вычислите дневной заработок продавца, продающего 'k' газет в день.
НУЖНО СОСТАВИТЬ ПРОГРАММУ ПАСКАЛЬ ДЛЯ ВЫЧИСЛЕНИЯ ДНЕВНОГО ЗАРАБОТКА ПРОДАВЦА, ГДЕ 'a' И 'b' НУЖНО ВВОДИТЬ САМОЙ. Если вы не можете составить программу, то помогите пожалуйста хотя бы написать уравнение решения этой задачи, ведь тогда 'a' и 'k' остаются как есть. Пожалуйста, очень прошу помочь!

Comments

Нет, я имела в виду именно уравнение, т.к. если кто-то не сможет помочь сделать саму программу, то хотя бы я буду не против от уравнения, типа x=1+y или z(то что просят найти)=a+2*k. Вот так вот)

---

Srzontmp умоляю, я вижу, что ты наблюдаешь. Помоги мне пожалуйста(

---

Вам не повезло с этим. Если тут кто-то напишет, как Вы выражаетесь, только "уравнение" - это будет для задачи по математике и ему в Информатике не место.

---

А я уже решал эту задачу в октябре. Второй раз то же самое писать не вижу смысла. Попробуйте поискать тут...

---

Ну пожааалуйста, вам найти быстрее( Я прошу небросайте меня, к тому же дается 25 баллов, а я потом добавлю 13

---

Так, во-первых, баллы меня не интересуют. А во-вторых, поиск тут для всех одинаково время отнимает.

---

Он ничего кроме того, что я только что вводила не даёт(

---

alviko? та задача которую вы решали уже имела вводное данное - 200, там сказано, что за день продают 200 газет, а в моей задаче, в условиях этого нет

---

Замените 300 на к

---

В программе вообще нет числа 200, что делать то, тогда?

Answer 1

Var i,k: integer;
    a,an,s: real;
begin  write('стоимость газеты из первых 50:  ');    readln(a);
  write('число проданных газет:  ');
  readln(k);
  writeln; 
  if k<=50 then s:=k*a<br>  else
  begin 
    s:=50*a;
    an:=a;
    for i:=1 to k-50 do
    begin
      an:=an*1.2;
      s:=s+an;
    end;
  end;
  writeln('продано газет  ',k,'  выручка составила  ',s,' руб.');
  end.
 

Comments

Ваша программа не правильно решает, при а=2 и к=100, нужно, чтобы было 220, а она пишет стоимость газеты из первых 50: 2
число проданных газет: 100

продано газет 100 выручка составила 109293.257800026 руб.