Question

создайте в Паскале программу подсчёта суммы нечётных натуральных чисел от 5 до n​

Answer 1

Дай будь ласка кращу відповідь

Пояснення:

program SumOfOddNumbers;

var

 n, i, sum: Integer;

begin

 // Введення користувачем значення n

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

 readln(n);

 // Ініціалізація суми

 sum := 0;

 // Підрахунок суми непарних чисел від 5 до n

 for i := 5 to n do

 begin

   if i mod 2 <> 0 then // перевірка на непарність

     sum := sum + i;

 end;

 // Виведення результату

 writeln('Сума непарних чисел від 5 до ', n, ' дорівнює ', sum);

 readln;

end.