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

Входные данные: ввести два целых числа A, B (1<=A,B<=10).

Выходные данные: вывести произведение всех целых чисел
от A до B включительно.

Uses crt;
Var
i,a,b,pr:integer;
Begin
Clrscr;
Pr:=1;
Repeat
Writeln(Введите числа A=1, b<=10); readln(a,b);
Until (a=1) and (b<=10);
For i:=a to b do
Pr:=pr*i;

Writeln(Произведение числ от ,a, до ,b, равно ,pr);
Readkey;
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.