пасиба темку мона удалит =) С НАСТУПАЮЩИМ!, не компилируется Опции

[andreybatka]

Не сочтите за наглость но есть еще вопросик. Задача- Составить программу для вычисления факт. Вычисление факториала оформить в виде FUNCTION. N=8 M=3. Вот собссна мой код

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 - 31.12.2006 15:23

[Айра]

Айра , пробовала запускать свою программу с n = 0 или m = 0, ну или и то и другое ?

Намек понят. Я как обычно расчитываю, что пользователь введет нормальные данные.
Щас исправлюсь.
Исправила. Так вроде все нормально.

ты мне очень помогла!

Рада стараться

Сообщение отредактировано: Айра - 28.12.2006 22:06