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

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

Задать свой вопрос
Тимур Кондяков
Язык программирования?
Танюха Мусорова
Да на Паскале представить решение. И проверить работает ли эта программа для данных чисел в таблице т.е. протестировать. К примеру если в программу ввести а =1 и k=51 обязан быть итог 51,2; если ввести а=2 и k=100 должен быть итог 220.
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 lt;= 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.

---

Работает, протестировал.
Timur
С долею решения я согласна но эта программа не работает.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт