Задать вопрос
5 января, 09:05

Найти произведение всех нечетных чисел от числа "а" до числа "b"

+1
Ответы (1)
  1. 5 января, 09:32
    0
    Program n1;

    var a, b, i: integer;

    p: real;

    begin

    p:=1;

    readln (a, b) ;

    for i:=a to b do if i mod 20 then p:=p*i;

    write (p) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найти произведение всех нечетных чисел от числа "а" до числа "b" ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Задача № 2. Сумма нечетных чисел Вычислить сумму всех нечетных чисел из интервала [a, b]. Например, сумма нечетных чисел из интервала [3, 9] равна 3 + 5 + 7 + 9 = 24.
Ответы (1)
Задача: Найти произведение нечётных чисел от 1 до 15. В преложенном тексте программы найдите ошибки. Programm z_1; Var i, p : real; Beigin; p=0; i=1; write i > 15 to beigin; p:=p+i; i=i+2; while ('произведение нечётных чисел от 1 до 15 = ', р) ; End.
Ответы (1)
1) Найти сумму нечетных чисел на интервале [-30; 40]. 2) Найти кол-во чисел на интервале [-50; 120], которые кратны 9. 3) Найти произведение чисел кратных 11 на интервале [-10; 20]. 4) Последовательно вводятся N чисел. Найти их произведение.
Ответы (1)
1. Даны два целых числа A и B (A < B). Найти сумму всех чисел от A до B включительно. 2. Даны два целых числа A и B (A 0). Найти произведение всех чисел от A до B включительно. 3. Дан массив целых чисел Х. Найти сумму квадратов всех чисел. 4.
Ответы (1)
1 вариант. 1. Найти сумму и произведение первых 6 последовательных натуральных чисел. 2. Найти сумму первых k последовательных нечетных чисел. 3. Вывести на экран натуральные нечётные числа от 5 до 55. 4.
Ответы (1)