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

Помогите, пожалуйста с задачей:
Даны два целых числа A и B( Alt;B).Отыскать творение всех целых четных чисел от A и B включительно. Исходным значением произведения считать одинаковым 1

Задать свой вопрос
Катенька Шемалева
Можно полное условие?
Миша Боянжу
Паскаль?
2 ответа
Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');Read(A);
Write('B = ');Read(B);

For A:=A to B do
    P:=P*A;

WriteLn(P)
End.
Var a,b,c,i:integer;
begin
read(a,b);
c:=1;
for i:=a to b do
c:=a*i;
end.
Олег Стребко
"Исходным значением творенья считать одинаковым 1 "
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт