найти творение четных чисел от -100 до 100 паскаль

Отыскать произведение четных чисел от -100 до 100 паскаль

Задать свой вопрос
1 ответ
Ответ: 0
Т.к. среди чисел творенья будет встречен ноль (который является чётным числом), который всё и занулит.

Var
  i : Integer;
  m : Longint;
Begin
  m:=1;
  For i:=-100 to 100 do If not Odd(i) then m:=m*i;
  Writeln(m);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт