Question

Паскаль абс. Составить программу для решения следующей задачи: Пират Флинт положил 5000$ в банк под 3,5% годовых. Через сколько лет сумма привысит 7000$?

Answer 1

Ответ:

Паскаль) хаха) изи)

program PuratFlint;

var sum, year, sum2: integer;

begin

sum := 5000;

sum2 := 7000;

year := 0;

while sum <= sum2 do

begin

sum := sum + sum / 100 * 3.5;

year := year + 1;

end;

write(year);

end.

я же говорил что изи)

Answer 2

Вот пример программы на языке Pascal, которая решает данную задачу:

pascalCopy code
program InterestCalculator;

var
  initialAmount, targetAmount: real;
  interestRate: real;
  years: integer;

begin
  initialAmount := 5000.0; // Исходная сумма
  targetAmount := 7000.0;  // Целевая сумма
  interestRate := 3.5;     // Годовая процентная ставка

  years := 0;

  while initialAmount < targetAmount do
  begin
    initialAmount := initialAmount + (initialAmount * interestRate / 100);
    years := years + 1;
  end;

  writeln('Через ', years, ' лет сумма превысит $', targetAmount:0:2);
end.

Эта программа начинает с исходной суммы 5000 долларов и увеличивает ее с каждым годом на 3,5% процентов годовых. Она продолжает увеличивать сумму до тех пор, пока она не превысит 7000 долларов. Затем программа выводит количество лет, необходимых для достижения целевой суммы.