Question

Напишите пожалуйста программу на PascalABC.Net! За просрочку платежа за квартиру начисляется пени из расчета 1% от суммы платежа с учетом пени за предыдущий день. Напечатать таблицу платежей с пени за 5 просроченных дней.

Answer 1

Ответ:

Код представлен на картинке вместе с результатом работы.

Протестировано на PascalABC.Net версии 3.4.2

Answer 2

Конечно! Вот программа на PascalABC.Net, которая рассчитывает пени за просрочку платежа за квартиру и печатает таблицу платежей с пенями за 5 дней:

pascalCopy code
program PenaltiesCalculator;

var
  Payment, TotalPenalties: real;
  Day: integer;

begin
  TotalPenalties := 0;

  writeln('День | Сумма платежа | Пени за день | Общие пени');
  writeln('---------------------------------------------');

  for Day := 1 to 5 do
  begin
    write(Day:4, ' | ');

    // Ввод суммы платежа
    write('Введите сумму платежа за день ', Day, ': ');
    readln(Payment);

    // Рассчет пени
    TotalPenalties := TotalPenalties + (Payment * 0.01);

    // Вывод результатов
    writeln(Payment:14:2, ' | ', (Payment * 0.01):12:2, ' | ', TotalPenalties:11:2);
  end;

  readln;
end.

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

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