Задача 7.4. Знайти добуток парних чисел з дiапазону вiд 5 до 12.

Program Dobutok;
Const n1=5; n2=12;
Var D,i:integer;
Begin D:=1; {Початкове значення добутку завжди =1}
  i:=n1;
 while i<=n2 do
 begin
    D:=D*i;
    i:=i+2;{бо треба парнi числа}
 end;
WriteLn('D=',D);
End.

Результати роботи програми: D=3465

Завдання 7.4.1. Обчислити суму парних чисел вiд 1 до 99.
Завдання 7.4.2. Обчислити суму непарних чисел вiд 13 до 148.
Завдання 7.4.3. Обчислити добуток непарних чисел вiд 1 до 14.
Завдання 7.4.4. Обчислити добуток непарних чисел вiд 6 до 9.