Question

На языке программирования Паскаль напишите программу нахождения суммы натурального ряда нечетных чисел от 1 до N

Answer 1

var

i,n,s:integer;

Begin

s:=0;

Readln(n);

for i:=1 to n do

 if i mod 2=1 then s+=i;

Writeln(s);

end.

Answer 2

Конечно, вот пример программы на языке программирования Паскаль для нахождения суммы натурального ряда нечетных чисел от 1 до N:

pascalCopy code
program SumOfOddNumbers;

var
  N, i, sum: integer;

begin
  // Вводим значение N с клавиатуры
  write('Введите значение N: ');
  readln(N);
  
  // Инициализируем переменную sum нулем
  sum := 0;
  
  // Считаем сумму нечетных чисел от 1 до N
  for i := 1 to N do
  begin
    // Если текущее число нечетное, добавляем его к сумме
    if i mod 2 <> 0 then
    begin
      sum := sum + i;
    end;
  end;
  
  // Выводим результат
  writeln('Сумма нечетных чисел от 1 до ', N, ' равна ', sum);
end.

Эта программа сначала запрашивает у пользователя ввод значения N. Затем она использует цикл for для итерации от 1 до N и проверяет, является ли текущее число нечетным (проверка с помощью i mod 2 <> 0). Если число нечетное, оно добавляется к переменной sum. После завершения цикла программа выводит сумму всех нечетных чисел от 1 до N.