Даны два целых числа A и B (A amp;lt; B). Отыскать

Даны два целых числа A и B (A lt; B). Найти творенье всех целых чисел от A до B включительно.Программка паскаль,нужен только цикл while

Задать свой вопрос
1 ответ
Var a,b:integer; p:real;
begin
write('a='); readln(a);
write('b='); readln(b);
p:=1;
while alt;=b do
 begin
 p:=p*a;
 a:=a+1;
 end;
writeln('p=',p);
end.

Пример:
a=2
b=5
p=120
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт