Question

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

Answer 1

program n_1;

begin

var A,B,x:integer;

writeln('Введите A,B');

read(A,B);

x:=1;

while A<=B do

begin

x:=x*A;

A:=A+1

end;

writeln(x)

end.