для CAHECHER:
Спасибо, но не фурычит. ВВожу два числа, появляется ноль и всё. Мелкие огрешности поправил. Вводятся два числа, появляется ноль и всё. И ещё мой турбо паскаль не хочет жрать экстендед. Программа выглядит так:
Program z4;
var
rezult:real;
i,j,k,n,t,c:longint;
function fact (x:integer) : integer;
begin
t:=1;
for j:=2 to x do
t:=t*i;
fact:=t;
end;
begin
readln(n,k);
rezult:=0.0;
c:=fact(10);
for i:=n to k do
begin
rezult:=rezult+c/fact(c-i);
if (i>=9) then
exit;
end;
write(rezult:0:0);
readln;
end. |
