Question

СРОЧНО!!2. Складіть проєкт для
обчислення суми n чисел,
перше з яких дорівнює х, а кожне наступне на 5 більше від попереднього. Lazarus

Answer 1

program SumOfNumbers;

{$mode objfpc}{$H+}

uses

SysUtils;

var

x, n, sum, i: Integer;

begin

Write('Enter the first number (x): ');

Readln(x);

Write('Enter the number of terms (n): ');

Readln(n);

sum := x;

for i := 2 to n do

sum := sum + (x + (i-1)*5);

Writeln('The sum of the first ', n, ' terms starting with ', x, ' is ', sum);

Readln;

end.