1. F= (x1 или не х2 и х1) или (х2 или х1 )
х1=0; х2=0 F= 0 + ¬0*0 + 0+0 = 0
x1=1 x2=1 F= 1 + ¬1*1 + 1 +1 = 1
x1=0 x2=1 F= 0+ ¬1*0 + 1+0 = 1
x1=1 x2=0 F= 1+ ¬0*1 + 0+1 = 1
--------------------------------------------------------------------------------------
2.
F= (x1 или х2) и не(х2 и х1 или х1)
х1=0 х2=0 F= (0 + 0 ) *¬ (0 *0 +0) = 0
х1=1 х2=1 F=( 1 + 1 ) * ¬( 1*1 +0 ) = 0
x1=0 x2=1 F= (0 + 1) * ¬(1*0 +0 ) = 1
x1=1 x2=0 F= (1 + 0 ) * ¬ (0*1 + 1 ) = 0
Program n1;
var i,s,n: longint;
begin
s:=0;
readln(n);
for i:=1 to n do s:=s+sqr(i*2);
writeln(s);
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов
1837056 символа. . . . . . . . . . . .. . . . . .. . . . .. . . . . ..