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

Question

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

---

Answer 1

program n_1;

begin

var A,B,x:integer;

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

read(A,B);

x:=1;

while A<=B do</p>

begin

x:=x*A;

A:=A+1

end;

writeln(x)

end.