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

Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.Программа паскаль,нужен только цикл while
Гость
Ответ(ы) на вопрос:
Гость
Var a,b:integer; p:real; begin write('a='); readln(a); write('b='); readln(b); p:=1; while a<=b do  begin  p:=p*a;  a:=a+1;  end; writeln('p=',p); end. Пример: a=2 b=5 p=120
Не нашли ответ?
Ответить на вопрос
Похожие вопросы