Question

найти количество кратных 7 положительных и сумму кратных 3 нечетных отрицательных целых чисел в интервале от -500 до 600. Помогите написать код в Паскале

Answer 1

Const q1 = -500;const q2 = 600;var kr7,kr3, z: integer;k, h : integer;beginh := q1;while h < q2 dobeginkr7 := h mod 7;if (h > 0) and (kr7 = 0) then begink := k +1;writeln('Число кратных ', h);end;h := h +1;end;writeln('Число кратных положительных ', k);
h := q1; k:=0;while h < q2 dobeginif (h < 0)  then beginz:= z + h;kr3 := z mod 3;if (kr3 = 0)  then begink := k +1;writeln('Число кратных ', z);end;end;h := h +1;end;writeln('Число кратных 3 отрицательных ', k);end.

Answer 2

Я попробую ответить на ваш вопрос.

Для того, чтобы найти количество кратных 7 положительных и сумму кратных 3 нечетных отрицательных целых чисел в интервале от -500 до 600, нам нужно выполнить следующие шаги:

- Пройти по всем целым числам в интервале от -500 до 600 и проверить, удовлетворяют ли они заданным условиям. - Если число положительное и кратно 7, то увеличить счетчик положительных чисел на 1. - Если число отрицательное, нечетное и кратно 3, то прибавить его к сумме отрицательных чисел. - В конце вывести значения счетчика и суммы.

Код на Паскале, который реализует этот алгоритм, может выглядеть так:

var
  i, count, sum: integer;
begin
  count := 0; // счетчик положительных чисел, кратных 7
  sum := 0; // сумма отрицательных нечетных чисел, кратных 3
  for i := -500 to 600 do // цикл по всем числам в интервале
  begin
    if (i > 0) and (i mod 7 = 0) then // если число положительное и кратно 7
      count := count + 1; // увеличить счетчик на 1
    if (i < 0) and (i mod 2 <> 0) and (i mod 3 = 0) then // если число отрицательное, нечетное и кратно 3
      sum := sum + i; // прибавить его к сумме
  end;
  writeln('Количество положительных чисел, кратных 7: ', count);
  writeln('Сумма отрицательных нечетных чисел, кратных 3: ', sum);
end.

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