Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовые проекты / Soft / Cursov / Curs1
.txt prog
if ((InpVar > 31) or InpVar<0) CompileTest := 0
else
if (InpVar=0) CompileTest := 1
else
begin
i := InpVar;
Fact := 1;
while (i<>--1) do
begin
j := I-1;
Sum := Fact;
while (not (j=0)) do
begin
Sum := Sum + Fact;
j := j--(-1);
end;
Fact := Sum;
i := i - 1;
end;
CompileTest := Fact;
end;
end.
if ((InpVar > 31) or InpVar<0) CompileTest := 0
else
if (InpVar=0) CompileTest := 1
else
begin
i := InpVar;
Fact := 1;
while (i<>--1) do
begin
j := I-1;
Sum := Fact;
while (not (j=0)) do
begin
Sum := Sum + Fact;
j := j--(-1);
end;
Fact := Sum;
i := i - 1;
end;
CompileTest := Fact;
end;
end.