Question

Знайти суму всіх послідовних цілих парних натуральних чисел від 2 до N. (Наприклад: якщо ввести N=10, то S:=2+4+6+8+10 , якщо ввести N=9, то S:=2+4+6+8).(лазарус)

Answer 1

Ответ:

Вот ссылка на готовую прогу → https://yadi.sk/d/pRyX2bUGMIdWsw

Объяснение:

Это было сделана на среде программирования Delphi 7 в консольном режиме.

P.S: Код программы↓

var

i,s,n: longint;  // объявляем переменные

begin  

SetConsoleCP(1251);  // для вывода в консоль русские символы

SetConsoleOutputCP(1251);  // для вывода в консоль русские символы

write('Здравствуйте! Введите, пожалуйста, любое число: ');  //вывод сообщения

readln(n);  // запишем то, что написал пользователь

s:=0;  // присвоим для начало 0

for i:=2 to n do  

    if i mod 2 = 0 then s:=s+i;

writeln('Ваше число: ', s);  //выводим S

readln;

end.

Я плохо объясняю, но думаю ты понял.

Answer 2

Для знаходження суми всіх послідовних парних натуральних чисел від 2 до N можна скористатися формулою для суми арифметичної прогресії.

Сума арифметичної прогресії знаходиться за формулою: S = (n/2) * (a + b), де "n" - кількість членів прогресії, "a" - перший член, "b" - останній член.

У даному випадку перший член "a" буде 2, останній член "b" буде N (проте, якщо N непарне, його треба зменшити на 1, щоб забезпечити парне число членів), а кількість членів "n" буде (N/2).

Тобто, сума парних чисел від 2 до N буде: S = ((N/2) / 2) * (2 + N - (N mod 2)).

Ось код на Lazarus, який реалізує цю формулу:

pascalCopy code
program SumOfEvenNumbers;

uses
  SysUtils;

var
  N: Integer;
  S: Integer;

begin
  Write('Введіть значення N: ');
  Readln(N);
  
  // Перевірка на парність N
  if N mod 2 <> 0 then
    Dec(N);
  
  S := ((N div 2) div 2) * (2 + N);
  writeln('Сума парних чисел від 2 до ', N, ' = ', S);
end.

Цей код приймає від користувача значення N і обчислює суму парних чисел від 2 до N, враховуючи парність/непарність N.