Question

Побудуйте математичну модель і складіть проєкт для обчислення суми n чисел, перше з яких дорівнює додатному числу x, а кожне наступне у 2 рази більше за попереднє.(лазарус)

Answer 1

Відповідь:program SumOfNumbers;

function CalculateSum(x, n: Integer): Integer;

var

 i, number, sum: Integer;

begin

 number := x; // Перше число дорівнює x

 sum := number; // Ініціалізуємо суму першим числом

 // Обчислюємо наступні числа та додаємо їх до суми

 for i := 2 to n do

 begin

   number := number * 2; // Кожне наступне число у 2 рази більше за попереднє

   sum := sum + number; // Додаємо число до суми

 end;

 Result := sum; // Повертаємо суму

end;

var

 x, n, result: Integer;

begin

 // Запитуємо користувача про значення x та n

 Write('Введіть значення x: ');

 ReadLn(x);

 Write('Введіть значення n: ');

 ReadLn(n);

 // Обчислюємо суму

 result := CalculateSum(x, n);

 // Виводимо результат

 WriteLn('Сума перших ', n, ' чисел:', result);

 ReadLn;

end.

Пояснення: