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, который находит сумму целых отрицательных нечетных чисел в заданном промежутке от A до B:

pascalCopy code
program SumOfNegativeOddNumbers;

var
  A, B, i, sum: integer;

begin
  // Вводим значения A и B
  writeln('Введите значения A и B:');
  readln(A, 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, затем использует цикл for, чтобы просмотреть каждое число от A до B. Если число является отрицательным и нечетным, оно добавляется к сумме. В конце программа выводит сумму отрицательных нечетных чисел в заданном промежутке.

Надеюсь, это помогло! Если у вас возникнут еще вопросы, не стесняйтесь задавать.