У вас есть некоторая начальная сумма денег. Вы положили в банк эту сумму денег, на 3 года под 20% годовых. Какова будет сумма начисленных процентов через 3 года? составьте…

Чтобы решить данную задачу, нам нужно написать программу на языке Паскаль, которая будет вычислять сумму начисленных процентов в банке через 3 года под 20% годовых. В этой программе мы запросим ввод начальной суммы и используем ветвление для обработки различных случаев, таких как проверка, является ли введенная сумма положительной.

Вот пример программы на Паскале:

program CalculateInterest;

var
  initialAmount, interestRate, totalAmount, interestEarned: real;

begin
  interestRate := 0.20; { 20% годовых }
  
  { Ввод начальной суммы }
  writeln('Введите начальную сумму денег: ');
  readln(initialAmount);
  
  { Проверка, является ли начальная сумма положительной }
  if initialAmount > 0 then
  begin
    { Расчет общей суммы через 3 года }
    totalAmount := initialAmount * (1 + interestRate) ** 3;
    
    { Расчет начисленных процентов }
    interestEarned := totalAmount - initialAmount;
    
    { Вывод результатов }
    writeln('Сумма начисленных процентов через 3 года: ', interestEarned:0:2);
  end
  else
  begin
    writeln('Ошибка: начальная сумма должна быть положительной.');
  end;
end.

Объяснение программы:

• Мы объявляем переменные для хранения начальной суммы, процентной ставки, общей суммы и начисленных процентов.
• Пользователь вводит начальную сумму денег.
• Программа проверяет, является ли введенная сумма положительной. Если да, то она вычисляет общую сумму через 3 года, используя формулу для сложных процентов, и затем высчитывает начисленные проценты.
• Если введенная сумма не положительная, программа выдает сообщение об ошибке.
• В конце выводится сумма начисленных процентов, округленная до двух знаков после запятой.