Задать вопрос
9 июля, 05:19

Найти произведение четных чисел в промежутке от 23 до 5

+5
Ответы (1)
  1. 9 июля, 05:32
    0
    Var i, s:longint;

    begin s:=1;

    for i:=23 downto 5 do

    beginif (i mod 2 = 0)

    then s:=s*i;

    end;

    writeln (s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти произведение четных чисел в промежутке от 23 до 5 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Найти сумму четных и произведение не четных чисел в промежутке от 1 до n
Ответы (1)
Задача 1. Вывести на экран квадраты чисел от 11 до 27. Задача 2. Найти произведение четных чисел в промежутке от 23 до 5. Задача 3. Найти сумму двухзначных чисел кратных 7.
Ответы (1)
1. Определите сколько раз будет выполняться тело цикла, при вычислении:y=5x+12a на промежутке [-6; 6 ] с шагом 2. 2. Определите сколько раз будет выполняться тело цикла, при вычислении:y=7/12a на промежутке [-2; 1 ] с шагом 0,5. 3.
Ответы (1)
Помогите решить задачи в паскале. 1) найти сумму положительных элементов массива. 2) найти сумму четных элементов массива. 3) найти сумму всех четных элементов массива, стоящих на четных местах.
Ответы (1)
Дано N. Найти произведение четных чисел этого числа. Решить с помощью паскаля. Ребят, у меня вышла такая программа: Program Pr1; var n, p, m:integer; begin write ('n=') ; readln (n) ; m:=n; p:=1;
Ответы (1)