12 января, 23:17

Паскаль.

С клавиатуры вводится N целых чисел. Найти произведение тех из них, которые нечетны и отрицательны.

+2
Ответы (1)
  1. 13 января, 01:06
    0
    Var

    i, n, k:integer;

    p:longint;

    f, ff:boolean;

    begin

    Write ('Введите количество чисел - > '); Readln (n);

    Writeln ('Тeперь вводите сами числа');

    p:=1; f:=false; ff:=false;

    for i:=1 to n do

    begin

    Read (k);

    f: = ((k<0) and ((k mod 2) 0));

    ff: = (ff or f);

    if f then p:=p*k

    end;

    if ff then Writeln ('Произведение нечетных отрицательных чисел: ', p)

    else Writeln ('Не было введено ни одного отрицательного нечетного числа')

    end.

    Тестовое решение:

    Введите количество чисел - > 10

    Тeперь вводите сами числа

    5 - 7 16 0 - 3 4 - 6 2 1 8

    Произведение нечетных отрицательных чисел: 21
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Паскаль. С клавиатуры вводится N целых чисел. Найти произведение тех из них, которые нечетны и отрицательны. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы