Ответы
Ответ дал:
0
PascalABC.NET
begin
var k := ReadInteger('Введите k:');
var y := 1;
for var i := 1 to k - 2 do
Y := y*i;
print('Ответ:',y)
end.
Приложения:

Вас заинтересует
2 года назад
3 года назад
8 лет назад
9 лет назад