Question

найти произведение чисел от k до n не кратных 3

Answer 1

function p(k,n:integer):longin;

var i:integer;

begin

s:=1;

for i:=k to n do begin

if i mod 3<>0 then

s:=s*i;

endif;

p:=s;

end;