Ответы
Ответ дал:
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.
Вас заинтересует
3 месяца назад
3 месяца назад
3 месяца назад
3 месяца назад
1 год назад
1 год назад
7 лет назад
7 лет назад