Question

Написать программу на Паскале, которая считает сумму всех целых, нечетных чисел от 1 до 50

Answer 1

===== PascalABC.NET =====

begin

 Range(1, 50, 2).Sum.Print

end.

Answer 2

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

pascalCopy code
program SumOfOddNumbers;

var
  number, sum: integer;

begin
  sum := 0;

  for number := 1 to 50 do
  begin
    if number mod 2 <> 0 then
      sum := sum + number;
  end;

  writeln('Сумма всех нечетных чисел от 1 до 50: ', sum);
  readln;
end.

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

Пожалуйста, обратите внимание, что программа представлена на языке Паскаль и для ее выполнения вам понадобится среда разработки или компилятор, поддерживающий этот язык.