Question

ПОМОГИТЕ! ДАМ 50 БАЛОВ! Дядюшка подарил Билли 1 доллар в его первый день рождения, а экономный Билл сложил его подарок в банку. Каждый последующий год дядя удваивал свой предыдущий подарок и прибовлял к нему столько долларов, сколько лет исполнилось Биллу, а тот в свою очередь продолжал складывать баксы в банку. Напишите программу, которая определит, на какой N-й день рождения в банке будет не менее чем S долларов? РЕШИТЬ В ПАСКАЛЕ:)

Answer 1

Решение на фото

Удачи :з

Answer 2

Конечно, я помогу вам написать программу на Pascal для решения данной задачи. Вам потребуется переменная для хранения суммы долларов на счету в банке и цикл для прохода по каждому дню рождения. Как только сумма на счету станет не менее S долларов, мы остановим цикл и выведем значение N - номер дня рождения.

Вот программа на Pascal:

pascalCopy code
program BirthdayMoney;

var
  N, S, CurrentSum, UncleGift, YearsGift: Integer;

begin
  { Вводим желаемую сумму S }
  Write('Введите желаемую сумму долларов S: ');
  Readln(S);

  { Инициализируем переменные }
  N := 1;               { Номер первого дня рождения }
  CurrentSum := 1;      { Текущая сумма на счету }
  UncleGift := 1;       { Подарок от дядюшки на первый день рождения }
  YearsGift := 1;       { Подарок за текущий год }

  { Проверяем условие, пока текущая сумма меньше S }
  while CurrentSum < S do
  begin
    { Увеличиваем номер дня рождения }
    Inc(N);

    { Вычисляем подарок от дядюшки за текущий день рождения }
    UncleGift := UncleGift * 2;

    { Вычисляем подарок за текущий год }
    YearsGift := N;

    { Складываем подарки в текущую сумму }
    CurrentSum := CurrentSum + UncleGift + YearsGift;
  end;

  { Выводим результат }
  Writeln('На ', N, '-й день рождения в банке будет не менее ', S, ' долларов.');
end.

Вы можете скомпилировать и запустить эту программу на вашем компьютере. Она попросит вас ввести желаемую сумму S, а затем выведет номер N-го дня рождения, когда сумма в банке будет не менее S долларов.