Задать вопрос

Вычислить произведение положительных и отрицательных чисел, в интервале от - 7 до 7 на Pascal ABC

+3
Ответы (1)
  1. 30 сентября, 09:43
    0
    Program chisla;

    const

    n=7;

    var

    prm, prp, i: integer;

    begin

    prm:=1;

    prp:=1;

    for i=-n to n do

    begin

    if i<0 then prm:=prm*i

    if i>0 then prp:=prp*i

    end;

    writeln ('произведение положительных чисел = ', prp,', произведение отрицательных членов = ', prm);

    end.

    Изменяя в строке const значение n можно изменять интервал.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Вычислить произведение положительных и отрицательных чисел, в интервале от - 7 до 7 на Pascal ABC ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1) Найти сумму нечетных чисел на интервале [-30; 40]. 2) Найти кол-во чисел на интервале [-50; 120], которые кратны 9. 3) Найти произведение чисел кратных 11 на интервале [-10; 20]. 4) Последовательно вводятся N чисел. Найти их произведение.
Ответы (1)
1. В массиве B[5,6], значения элементов находятся в интервале [-25,30]. Подсчитать количество элементов, значение которых кратно 4. 2. В массиве C[6,10], значения элементов находятся в интервале [10,30], найти сумму элементов в 1 строке. 3.
Ответы (1)
Задача в паскале среди 10 введенных с клавиатуры чисел подсчитать количество отрицательных и произведение положительных чисел рассмотреть случай когда положительных чисел нет
Ответы (1)
1) дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов2) Дан массив целых чисел.
Ответы (1)
Введите с клавиатуры одномерный массив А (N), элементами которого являются положительные и отрицательные целые числа. Подсчитайте произведение положительных элементов этого массива и количество отрицательных.
Ответы (1)