• Известен факториал числа n. Найти это число (факториал числа n равен 1 • 2 •... • n). В ПАСКАЛЕ

Ответы 2

  • program lol(input, output);var a, I:real;beginread (a);I:=1;while a <> 1 dobegina:=a/I;I:=I+1;end;writeln (I-1);end.
    • Автор:

      cometreid
    • 5 лет назад
    • 0
  • // PascalABC.NET 3.1, сборка 1239 от 08.05.2016begin  var nf:=ReadlnString('Значение n!').ToBigInteger;  var n:=1;  var f:=BigInteger(1);  repeat     f*=n;    if f<nf then Inc(n)  until f>=nf;  if f=nf then Writeln('n=',n)  else Writeln('Число не является факториалом')end.Тестовое решениеЗначение n! 1982608315404440064116146708361898137544773690227268628106279599612729753600000000000000n=63
  • Добавить свой ответ

Войти через Google

или

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

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

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