Помогите пожалуйста составить программу на Паскале с предусловием

[Lesca]

Помогите пожалуйста составить программу на Паскале с предусловием

1)Составьте программу для определения N!-M! N! = 1*2*3*4*.........*n
2)Вводятся 14 чисел. Определить, сколько среди них положительных (включая 0) и сколько отрицательных. (Числа вводятся в одну переменную в цикле)
3)1. Концентрация хлорной извести в бассейне V м3 составляет 10 г/л. Через одну трубу в бассейн вливают чистую воду со скоростью Q м3/час, через другую трубу с такой же скоростью вода выливается. При условии идеального перемешивания концентрация хлорной извести изменятся по закону C = C0e-Qt/V , где t – время,*** C0 – начальная концентрация. Напечатать таблицу изменения концентрации хлорной извести для интервала времени от 0 до 5 часов с шагом 0,5 часа.

 

[Vladimir_S]

1)Составьте программу для определения N!-M! N! = 1*2*3*4*.........*n

Ладно, с этим помогу. Только вот всякие там дебильные указули типа "использовать предусловие" и т.п. это, извините, мимо. Решаю как считаю нужным.
Два варианта.
1. С рекурсивной функцией:

Var
 N,M:Integer;

Function Fact(p:Integer):Real;
begin
 If p<=1 then Fact:=1 else Fact:=p*Fact(p-1);
end;

Begin
 Write('N= ');
 Readln(N);
 Write('M= ');
 Readln(M);
 Writeln((Fact(N)-Fact(M)):0:0);
 Readln
End.

2. С обычной функцией:

Var
 N,M:Integer;

Function Fact(p:Integer):Real;
var i:Integer; F:Real;
begin
 F:=1;
 For i:=2 to p do F:=F*i;
 Fact:=F;
end;

Begin
 Write('N= ');
 Readln(N);
 Write('M= ');
 Readln(M);
 Writeln((Fact(N)-Fact(M)):0:0);
 Readln
End.

Что касается остальных двух задач - то это уже полный детский сад. Соблаговолите справиться самостоятельно.