Question

В ПАСКАЛЕ написать решение задачи: найти сумму и произведение нечетных и кратных 3 чисел из диапазона 100, 110, 120...n

Answer 1

Ответ:

скажи, если не то

Объяснение:

program ThreeMultSum;

var sum, n: integer;

i, mult: longint;

begin

   sum := 0;

   mult := 1;

   i := 100;

   readln(n);

   while i <= n do begin  

       if (i mod 3 = 0) and (i mod 2 <> 0) then begin  

           writeln(i);

           sum := sum + i;

           mult := mult * i;

       end;

       i := i + 1;

   end;

   writeln(sum);

   writeln(mult);

end.

Answer 2

Конечно! Вот пример решения данной задачи на языке Pascal:

pascalCopy code
program SumAndProduct;

var
  n, num, sum, product: integer;

begin
  writeln('Введите значение n:');
  readln(n);
  
  sum := 0;
  product := 1;
  
  for num := 100 to n do
  begin
    if (num mod 2 <> 0) and (num mod 3 = 0) then
    begin
      sum := sum + num;
      product := product * num;
    end;
  end;
  
  writeln('Сумма нечетных и кратных 3 чисел: ', sum);
  writeln('Произведение нечетных и кратных 3 чисел: ', product);
  
  readln;
end.

В этом примере мы используем переменные n, num, sum и product. Мы начинаем считывать значение n с помощью readln. Затем мы инициализируем sum и product нулевыми значениями.

Затем мы используем цикл for, чтобы перебрать числа от 100 до n. Внутри цикла мы проверяем, является ли число нечетным (num mod 2 <> 0) и кратным 3 (num mod 3 = 0). Если это условие выполняется, мы добавляем num к переменной sum и умножаем num на переменную product.

После окончания цикла мы выводим значения sum и product с помощью writeln.

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