Question

Помогите пожалуйста с pascal Составте программу находящую сумму целых отрицательных нечетных чисел из промежутка от А до В

Answer 1

var a,b,s,i: integer;

begin

readln(a,b);

s:=0;

if b<a then write('неверный ввод')

else begin

for i:=a to b do

if (i<0) and (abs(i) mod 2<>0) then s:=s+i;

write('сумма целых отрицательных нечетных чисел на [',a,';',b,']: ',s);

end;

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая находит сумму целых отрицательных нечетных чисел в заданном промежутке от А до В:

pascalCopy code
program SumOfNegativeOddNumbers;

var
  A, B, i, sum: integer;

begin
  // Ввод значений A и B
  write('Введите значение A: ');
  readln(A);
  write('Введите значение B: ');
  readln(B);

  // Инициализация суммы
  sum := 0;

  // Перебор чисел от A до B
  for i := A to B do
  begin
    // Проверка на отрицательное нечетное число
    if (i < 0) and (i mod 2 <> 0) then
      sum := sum + i;
  end;

  // Вывод результата
  writeln('Сумма отрицательных нечетных чисел от ', A, ' до ', B, ' равна ', sum);

  readln;
end.

Программа запрашивает у пользователя значения A и B, затем итерируется по числам от A до B и находит сумму всех отрицательных нечетных чисел. Результат выводится на экран.

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