1. Разработать и написать алгоритм определения

S = b (c + d) / (k - 1).

2. Составить алгоритм вычисления х! = 1*2*3 * ... * х.

Program p17;

var b, c, d, k, S: real;

begin

writeln ('Введите b: ') ;

readln (b) ;

writeln ('Введите c: ') ;

readln (c) ;

writeln ('Введите d: ') ;

readln (d) ;

writeln ('Введите k: ') ;

readln (k) ; S:=b * (c + d) / (k - 1) ;

writeln (S) ;

end.

Program p17;

var x, S:integer;

begin

writeln ('Введите x: ') ;

S:=1;

readln (x) ;

while x>0 do

begin

S:=S*x;

x:=x-1;

end;

writeln (S) ;

end.