Program FACTORIAL;
uses crt;
VAR c:longint; n,m:integer;
Function fact(n:integer):longint;
var N,M,i:integer;
f:longint;
Begin
clrscr;
f:=1
For i:=2 to n do f:=g*i;
fact:=f
end;
Begin writeln('vvedite N,M');
readln(N,M);
c:fact(n)/(fact(m)*fact(n-m));writeln('c=',c);
readln;
end.
ошибка Type mismatch в строчке
c:fact(n)/(fact(m)*fact(n-m));writeln('c=',c);
Помогите советом плизь
Сообщение отредактировано: andreybatka -