1 - истина
0 - ложь
a=1
b=0
c=1
--------------------------
1) a*b=0
2) a+b=1
3) НЕa+b=0
4) a*b+c=1
5) a+b*c=1
6) НЕa+b*c=0
7) (a+b)*(c+b)=1
8) НЕ(a+b)*(c+b)=НЕa*НЕb*(c+b)=0
9) НЕ(a*b*c)=НЕa+НЕb+НЕc=1
3 стула поставить в углы, по 1 стулу на каждую сторону, где в углу нет стула <span>каждый стул в углу принадлежит двум сторонам.</span>
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
Writeln('Сумма двоек равна ',a.Where(t->t=2).Sum)
end.
<u>Пример</u>
n= 15
2 6 6 2 8 5 3 1 8 0 0 2 8 3 6
Сумма двоек равна 6
Var s:string;l,k,p:integer;beginwrite('Введите текст');//s:='Проверочный текст для разделения на слова и мы';read(s);l := s.Length;p:=1;while p <= l do beginif s[p] = 'ы' then k:= k +1;p:=p +1;end;write(l,k);end.
Я оформил каждое задание в отдельной функции. Пожалуйста, перед сдачей проверь на правильность выполнения т.к. у меня нет среды разработки и компилятора)) Перепрофилировался в джаву с питоном))