Помогите решить задачу. Уличный продавец газет получает а рублей с продажи каждой из...

Question

Помогите решить задачу.
Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет. С продажи каждой из после¬дующих газет он получает на 20% больше. Вычислите дневной заработок продавца, продающего k газет в день. Протестировать программу при следующих исходных данных (указано в приложении). Программа должна работать и соответствовать этой таблице.
Заранее спасибо.

---

Comments

Язык программирования?

---

Да на Паскале представить решение. И проверить работает ли эта программа для заданных чисел в таблице т.е. протестировать. Например если в программу ввести а =1 и k=51 должен быть результат 51,2; если ввести а=2 и k=100 должен быть результат 220.

Answer 1

Program gazeta;


function Main(a, k: integer): real;

var
   i: integer;
   zar: real;
begin
  zar := 0;
  for i := 1 to k do
    if i <= 50 then <br>      zar := zar + a
    else
      zar := zar + 1.2 * a;
  Main := zar;
end;

begin
  if Main(1, 49) = 49.0 then
    writeln('Тест 1 пройден');
  if Main(1, 51) = 51.2 then
    writeln('Тест 2 пройден');
  if Main(2, 100) = 220.0 then
    writeln('Тест 3 пройден');
end.

---

Работает, протестировал.

Comments

С частью решения я согласна но эта программа не работает.