Ответы 1

  • //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)var  i, n: integer;  p: BigInteger;begin  write('Введите число N ');  readln(n);  p := 1;  for i := 1 to n do p := p * i;  writeln( 'Произведение чисел от 1 до ',n,' равно : ',p);end.Тест №1:Введите число N 5Произведение чисел от 1 до 5 равно : 120Тест №2:Введите число N 100Произведение чисел от 1 до 100 равно : 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
    • Автор:

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

Войти через Google

или

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

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

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