Question

Розробіть алгоритм і програму визначення добутку цілих парних чисел з проміжку (-2; 7]

З допомогою циклів! У програмі Delphi7

Answer 1

p:=1;
for i = -2 to 7 do    begin           if (i div 2 = 0) then               p=p*i;    end;

Answer 2

p:=1;
i:=-2
while not(i=7) do
begin
inc(i);
if (i div 2 = 0) then
p=p*i;
end;

p:=1;
i:=-2;
repeat
if (i div 2 = 0) then
p=p*i;
inc(i);
while not(i=7) do

Answer 3

p:=1;
i:=-2;
repeat
if (i div 2 = 0) then
p=p*i;
inc(i);
until not(i=7) do