Question

Напишите програму вычисления произведений :всех чисел от 1 до 100, кратных 3,но некратных 6.

Answer 1

uses crt;
var p,i:integer;
begin
  clrscr;
  writeln('chisla:');
  p:=1;
  for i:=1 to 100 do
    if (i mod 3 = 0)and (i mod 6 <> 0) then
    begin
      p:=p*i;
      write(i,' ');
    end;
  writeln;
  write('proizv.=',p);
end.

Answer 2

Конечно! Вот программа на языке Python, которая вычисляет произведение всех чисел от 1 до 100, которые кратны 3, но не кратны 6:

# Инициализируем переменную, в которой будем хранить произведение
product = 1

# Проходимся по всем числам от 1 до 100
for num in range(1, 101):
    # Проверяем, кратно ли число 3 и не кратно ли 6
    if num % 3 == 0 and num % 6 != 0:
        # Если число удовлетворяет условию, умножаем его на текущее произведение
        product *= num

# Выводим полученное произведение
print("Произведение чисел от 1 до 100, кратных 3, но не кратных 6: ", product)

При запуске этой программы, вы получите произведение всех чисел от 1 до 100, которые кратны 3, но не кратны 6.

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