if(a<=m) and(q<>0) then

begin

readln(m,q);

a:=1;

s:=0;

if(a<=m) and(q<>0) then

begin

whilea<=m do

begin

s:=s+a;

a:=a*q;

end;

writeln(s);

end

elsewriteln('summa ne suschestvuet');

readln;

end.

Сконструируйте программу для определения числа сочетаний , используя функцию при вычислении факториала.

programsoch;

varm,n:integer;

rez:real;

functionfact(a:integer):real;

vari:integer;

p:real;

begin

p:=1;

fori:=1 toa do

p:=p*i;

fact:=p;

end;

begin

writeln('vvedite znachenija');

readln(n,m);

if((m<0) or(n<0) or(n<m)) thenwriteln('rezultat nelza podschitat')

else

begin

rez:=fact(n)/(fact(m)*fact(n-m));

writeln('rezultat =',rez:0:2);

end;

readln;

end.