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

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

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

Question

Дареша

15 апреля, 03:33

+2

Ответы (1)

Знаете ответ на вопрос?

Санюха · Answer 1

Var i, a, b, r:integer;

begin

read (a, b) ;

r:=1;

for i:=a to b do

r*=i;

writeln (r) ;

end.