Предмет: Информатика,
автор: babigan45
Pascal
срочно помогите пожалуйста
решить
Цикл с параметром y = 2*( n-2)!
Заранее благодарю
Ответы
Автор ответа:
1
PascalABC.NET:
- ##
- var n := ReadInteger('n:');
- var y := 2;
- for var i := 1 to n-2 do
- y *= i;
- y.Print
Проверка:
- y = 2*(n-2)! = 2*(5-2)! = 2*3! = 2*1*2*3 = 4*3 = 12
- y = 2*(n-2)! = 2*(7-2)! = 2*5! = 2*1*2*3*4*5 = 4*3*20 = 12*20 = 240
Приложения:
Или без подключения SF:
## Print(2*(1..ReadInteger-2).Product)
## Print(2*(1..ReadInteger-2).Product)
Похожие вопросы
Предмет: Математика,
автор: vdjf
Предмет: Химия,
автор: naleksandr
Предмет: Физика,
автор: miromax50
Предмет: Алгебра,
автор: заййййка99990
### Pr(2*(1..RI-2).Product)