Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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;