Question

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

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
      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.

---

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