For8. Даны два целых числа A и B (A меньше B). Найти произведение всех целых чисел от A до B включительно.
For8. Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,i:integer;
begin
readln(a,b);
c:=1;
for i:=a to b do begin
d:=i*b;
b:=d;
end;
write(c);
end.
Не нашли ответ?
Похожие вопросы