Question

В паскале. Написать программу вычисления суммы всех двухзначных нечетных чисел.

Answer 1

Var a,s:integer;
begin
s:=0;
a:=11;
while a<=99 do
 begin
 s:=s+a;
 a:=a+2;
 end;
writeln('s = ',s);
end.

Результат:
s = 2475

Answer 2

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  Write(Range(11,99,2).Sum)
end.

Результат выполнения программы:
2475

Answer 3

Решение в Pascal:

Для вычисления суммы всех двузначных нечетных чисел в Pascal можно воспользоваться следующей программой:

program SumOfOddNumbers;

var
  sum, num: integer;

begin
  sum := 0;
  for num := 11 to 99 do
  begin
    if (num mod 2 <> 0) then
      sum := sum + num;
  end;
  writeln('Сумма всех двузначных нечетных чисел: ', sum);
end.

Эта программа начинает с числа 11 (первое двузначное нечетное число) и продолжает до 99, прибавляя все нечетные числа к переменной `sum`. После завершения цикла программа выводит сумму всех найденных чисел.

Пример работы программы: ``` Сумма всех двузначных нечетных чисел: 2475 ```

Объяснение:

Данная программа использует цикл `for` для перебора всех двузначных чисел (от 11 до 99) и проверяет, является ли каждое число нечетным. Если число нечетное, оно добавляется к переменной `sum`. По завершении цикла программа выводит общую сумму всех найденных нечетных чисел.

Это позволяет эффективно вычислить сумму всех двузначных нечетных чисел без необходимости вручную перебирать каждое число.

Примечание: Важно помнить, что в Pascal индексация начинается с 1, а не с 0, поэтому в данной программе используется диапазон от 11 до 99 для перебора всех двузначных чисел.