Ответы
Ответ дал:
0
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;
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад