Справка:
(не я отмечу символом \, знак дизьюнкции сивмолом + , коньюкции *)
1)СДНФ
(A\*B*C)+(A*B\*C)+(A*B*C\)+(A*B*C)=B*C*(A\*A)+(A*B\*C)+(A*B*C\)=B*C+(A*B\*C)+(A*B*C\)=
B*C+A*(B\*C+B*C\)
2)СКНФ
(A+B+C)*(A+B+C\)*(A+B\+C)*(A\+B+C)=AA+AB+AC\+AB+BB+BC\+AC+BC+CC\+AA\+AB+AC+AC+A\B\+BB\+B\C+A\C+BC+CC=
A+AB+AC\+AB+B+BC\+AC+BC+AB+AC+A\B\+B\C+A\C+BC+C=
A+AB+AB+B+C=A*(B+B)+B+C=AB+B+C
насчёт скнф не уверен но должно быть правильно.если что то не понял пиши
Не легче Эксель установить и посмотреть, чем спрашивать?
Функция СЧЁТЕСЛИ подсчитывает количество ячеек, значения которых соответствуют некоторому условию. Первый аргумент - диапазон этих ячеек, второй - условие отбора.
<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите целое число:');
Writeln(Abs(n).Between(10,99)?'Да':'Нет')
end.
<u>Примеры</u>
Введите целое число: 38
Да
Введите целое число: 152
Нет
Введите целое число: -10
Да
var
i:integer;
s,m:string;
begin
<em>readln(s);
</em>
for i:=1 to Length(s) do
if s[i] in ['0'..'9'] then m:=m+s[i];
<em>write(m);</em>
<span>end.</span>