Будет выведено число 128. Остальное - во вложении.
===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.
Минимальное возможное количество единиц в столбце значений предложенной функции равно 28.
Пять переменных порождают таблицу истинности, содержащую
строки значений. По условию для каждого из логических выражений a и b получается 4 единицы, следовательно нулей получается 32-4=28.
Функция
- это дизъюнкция значений a, порождающих 4 единицы и инверсии значений b, порождающей 28 единиц. Т.е. меньше 28 единиц быть не может никак.
Якщо нікого не пропускаючи (в тому числі і себе) - то 9 дівчаток.
Вчитель почав рахувати з іншої дитини, але не вказано, що він нікого не пропустив.