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

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