Задать вопрос
6 апреля, 06:03

Составить программу вычисления произведения нечётных чисел меньши 16

+5
Ответы (1)
  1. 6 апреля, 08:03
    0
    Var n:byte;

    sum:integer;

    begin

    n:=16;

    repeat

    dec (n);

    if (n mod 2) = 0 then continue;

    sum:=sum+n;

    until n=0;

    writeln (sum);

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