Var
i, //номер члена последовательности
n: integer; //длина последовательности
a: double; //заданное число
Begin
//--------------------------------------Ввод данных----------------------------------------------------
write('Введите длину последовательности: ');
read(n);
write('Введите a: ');
read(a);
//-----------------------------Вывод последовательности-------------------------------------------
i:=2;
write('Последовательность: ',1);
while i <= n do begin
write(' ',1+1/i:0:4); //4 - количество цифр после запятой, если нужна
большая точность можно увеличить это число
i:=i+1;
end;
writeln();
//------------------------------Вывод требуемых чисел----------------------------------------------
write('Числа меньше а: ');
i:=2;
if a > 1 then write(1);
while i <= n do begin
if 1+1/i < a then write(' ',1+1/i:0:4); //если i-й член последовательности < a,
то печатаем это число
i:=i+1; //переходим к следующему числу в последовательности
end;
End.
Сначала определяем количество логических переменных в выражении. Их три: A, B, C. Значения истинности каждой из переменных - это 0 или 1. Так как переменных три, то разных значений истинности они вместе могут принимать 8, т.к. 2³ = 8. В таблице истинности будет 8 строк со значениями.
Теперь считаем количество логических операций и определяем их приоритет. Сначала выполняем операции в скобках в такой последовательности: ¬ (НЕ, отрицание, инверсия); &, ∧ (И, логическое умножение, конъюнкция), ∨ (ИЛИ, логическое сложение, дизъюнкция). В выражении 4 операции. Столбцов в таблице истинности будет: 3 + 4 = 7.
<span>Остаток от деления на 10 - цифра младшего разряда числа. Делим число на 10 с помощью %, получаем первую цифру (самый младший разряд), делим ещё раз - получаем вторую цифру, и так, пока от числа одна цифра не останется. Ну а потом просто перемножаем всё это дело (все цифры получившиеся).</span>