Задать вопрос
16 июля, 00:39

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

+5
Ответы (1)
  1. 16 июля, 02:16
    0
    Можно так:

    var i, p: integer;

    begin

    p:=1;

    for i:=2 to 15 do

    if i mod 2=0 then p:=p*i;

    writeln ('Произведение четных чисел: ', p)

    end.

    Или так:

    var i, p: integer;

    begin

    i:=2;

    p:=1;

    while i<15 do

    begin

    p:=p*i;

    i:=i+2

    end;

    writeln ('Произведение четных чисел: ', p)

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найти произведение четных чисел от 1 до 15 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы