Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 24: var i, k: integer;

function F(x:integer):longint;

begin

if x = 1 then

F:=2

else F:=x*F(x-1);

end;

begin

i := 12;

readln(K);

while (i>0) and (F(i) > K) do

i:=i-1;

writeln(i);

end

// Паскаль
// Программа поддерживает латиницу, кириллицу и дефисы

const
  // Первая буквы, англ. "a" - 65, но может быть дефис #45
  first_letter = #45;
  // Последняя буквы, рус. "я"
  last_letter = #1103;

var
  x: string;
  i: integer;
  c: char;
  // Сколько раз встречает буква в слове
  count: array[first_letter..last_letter] of integer;
begin
  readln(x);
  // Обнуляем массив
  for c := first_letter to last_letter do
    count[c] := 0;
  // Подсчитываем буквы в слове
  for i := 1 to length(x) do
    inc(count[x[i]]);
  // Выводим слово без букв, встречающихся 3 раза
  for i := 1 to length(x) do
    if count[x[i]] <> 3 then
      write(x[i])
end.

2. 1)

3. 1), 3), 5)

Объяснение:

2. Выражение лучше сначала преобразовать.

Чтобы исходное выражение стало ложным, можно перед ним поставить общий знак отрицаний, а затем найти условие истинности полученного выражения.

¬ (¬ ( (третья буква согласная) ∧ (последняя буква гласная) ) )

Двойное отрицание равнозначно утверждению, поэтому останется (третья буква согласная) ∧ (последняя буква гласная)

Ему удовлетворяет только имя Анна.

3. И здесь рассуждаем аналогично.

¬ (  (число < 75) ∧ ¬(число четное) )

По правилу де-Моргана избавляемся от общего отрицания

¬(число < 75) ∨ ¬(¬(число четное) )

(число ≥ 75) ∨ (число четное)

Чисел, не меньших 75, у нас два - 75 и 80. Четных тоже два - 46 и 80.

Поскольку условие "ИЛИ", выбираем три числа: 46, 57, 80.