Даны два целых числа А и В (А меньше В) . Найти произведение всех целых чисел от А до В включительно. Входные данные: ввести два целых числа А,В (1 меньше =А,В меньше =10). Входные данные: вывести произведение всех целых чи...
Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
Гость
Ответ(ы) на вопрос:
Гостьvar i,a,b,r:integer;
begin
read(a,b);
r:=1;
for i:=a to b do
r*=i;
writeln(r);
end.
Не нашли ответ?
Похожие вопросы