• Программисты, помогите!!!! нужно написать программу на паскале дано натуральное число n. Найти произведение нечетных чисел от 1 до n. C Longint и integer.

Ответы 2

  • var  n, i: integer;  pr: longint;begin  readln(n);  pr := 1;  i := 1;  while (i <= n) do begin    i := i + 2;    pr := pr * i;  end;  pr := pr div i;  writeln(pr);end.
    • Автор:

      snowylegz
    • 6 лет назад
    • 0
  • PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  Writeln(Range(1,ReadInteger,2).Aggregate(BigInteger(1),(p,q)->p*q))end.
    answer img
    • Автор:

      dummytych
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years