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

Question

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

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

Выходные данные: вывести произведение всех целых чисел
от 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);<br>Until (a=1) and (b<=10);<br>For i:=a to b do
Pr:=pr*i;

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

Comments

спасибо