Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B...

Question

Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.

Answer 1

Var
a,b,i,s:integer;
begin
writeln('Введите A:');
readln(a);
writeln('Введите B:');
readln(b);
s:=1;
for i:=a to b do
s:=s*i;
writeln('произведение всех целых чисел от A до B включительно:', s);
end.