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

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

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

Question

Киля

27 июля, 05:57

+3

Ответы (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.