Найти произведение чисел от k до n не кратных 3
Найти произведение чисел от 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;
Не нашли ответ?
Похожие вопросы