Question

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

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

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

Answer 1

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.