Question

Помогите решить задачу о Паскалю Дано четыре числа. Необходимо найти произведение тех чисел, которые находятся в диапазоне от 3 до 9 включительно. Формат входных данных С клавиатуры вводятся 4 целых числа, по модулю не превосходящих 20. Формат выходных данных Необходимо вывести единственное число — искомое произведение. Если чисел, удовлетворяющих условию, нет, выведите -1.

Answer 1

Var  n, k, i: integer;
begin  k := 1;  for i := 1 to 4 do  begin    read(n);    if (n >= 3) and (n <= 9) then      k := k * n;  end;  if k = 1 then writeln(-1)  else writeln(k);end.

Answer 2

Хорошо, для решения данной задачи вам потребуется проверить каждое из четырех чисел и найти произведение тех, которые находятся в диапазоне от 3 до 9 включительно. Если таких чисел нет, выведите -1. Вот пример кода на Python, который решает данную задачу:

pythonCopy code
a = int(input("Введите первое число: "))
b = int(input("Введите второе число: "))
c = int(input("Введите третье число: "))
d = int(input("Введите четвертое число: "))

product = 1
found = False

numbers = [a, b, c, d]

for num in numbers:
    if 3 <= num <= 9:
        product *= num
        found = True

if found:
    print("Произведение чисел:", product)
else:
    print(-1)

Вы можете ввести четыре целых числа с клавиатуры, и программа выведет искомое произведение или -1, если чисел в диапазоне от 3 до 9 включительно не найдено.