СРОЧНО!!2. Складіть проєкт для
обчислення суми n чисел,
перше з яких дорівнює х, а кожне наступне на 5 більше від попереднього. Lazarus
Ответы
Ответ дал:
0
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.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
2 года назад
2 года назад
7 лет назад