Задать вопрос
17 мая, 15:37

Помогите решить задачу о Паскалю

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

+1
Ответы (1)
  1. 17 мая, 19:32
    -2
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите решить задачу о Паскалю Дано четыре числа. Необходимо найти произведение тех чисел, которые находятся в диапазоне от 3 до 9 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы