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

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;

Comments

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

---

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