Question

Scrieti un program care calculeaza produsul numerelor naturale divizibile la 4 mai mici sau egale cu n. TURBO PASCAL

Answer 1

Program p1;
var p:longint; n,i:integer;
Begin
      write('n=');read(n);
      p:=1;
      for i:=4 to n do
           if i mod 4=0 then p:=p*i;
      write(p);
End.