попробуйте, пожалуйста, у меня вот что получилось
var
function fact(x:integer):real;
var i:integer; p:real;
begin
p:=1
for i:=1 to x do
p:=p*i;
fact:=p;
end;
var:n1,n2,i:integer,S:real;
begin
S:=0;
for i:=n1 to n2 do
S=S+fact(i);
writeln('S= ",S);
readln;
end.
Вот примерно так, а куда четность вставить, я не знаю.
Это вроде ODD от n1 и n2 должно быть.
Спасибо огромное заранее.
М | tori, ставь теги! Выбор из меню над окном ввода.. Lapp |