Задать вопрос
15 ноября, 17:42

Помогите в программе Pascal (линейный, ветвление и циклический)

Разработайте схему алгоритма

для вычисления произведения P = (-1) * 2 * (-3) * 4 * (-5)

* ... * n. Используйте два цикла: один для вычисления произведения нечетных

чисел P1,

второй - для вычисления произведения четных чисел P 2.

+5
Ответы (1)
  1. 15 ноября, 19:56
    0
    Var

    a, n, x, p1, p2:integer;

    begin

    readln (n) ;

    x:=-1;

    a:=0;

    p1:=1;

    p2:=1;

    while abs (a)
    x:=x * (-1) ;

    a: = (abs (a) + 1) * x * (-1) ;

    if abs (a) mod 2=0 then

    p2:=p2*a

    else

    p1:=p1*a;

    end;

    writeln (p1) ;

    writeln (p2) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите в программе Pascal (линейный, ветвление и циклический) Разработайте схему алгоритма для вычисления произведения P = (-1) * 2 * ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы