Аргументов пять, поэтому строк в таблицы истинности будет: 2^5 =32 В 1/4 от них F=1, то есть в 32/4 =8 строках F=1 В пяти строках: F G F⇒G 1 1 1 1 1 1 0 0 1 0 0 1 0 0 1 Все остальные строки - с различными значениями F и G, то есть есть строки , где ещё шесть раз F=1, а G =0 F G F⇒G 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 Именно в этих шести строках импликация F⇒G =0, во всех других строках F=0, а 0⇒0 =1 и 0⇒1=1 Вывод: 6 - число значений 0 для функции F⇒G в таблице истинности.
Program n1; var a,b,sum,pr:integer; begin sum:=0; pr:=1; for a:=1 to 10 do begin sum:=sum+a; end; writeln('сумма чисел от 1 до 10 = ',sum); for a:=1 to 10 do begin pr:=pr*a; end; writeln('произведение чисел от 1 до 10 = ',pr); end.
program n2; var a,b,n:integer; begin writeln('введите степень n'); readln(n); b:=1; for a:=1 to n do begin b:=b*2; end; writeln('2 в ',n,' степени = ', b); end.
program n3; var sum,a,n,n2:integer; begin writeln('введите число n'); readln(n); n2:=n; while n<>0 do begin a:=n mod 10; sum:=a+sum; n:=n div 10; end; writeln('сумма цифр ',n2,' = ',sum); end.
2^5 =32
В 1/4 от них F=1, то есть в 32/4 =8 строках F=1
В пяти строках:
F G F⇒G
1 1 1
1 1 1
0 0 1
0 0 1
0 0 1
Все остальные строки - с различными значениями F и G,
то есть есть строки , где ещё шесть раз F=1, а G =0
F G F⇒G
1 0 0
1 0 0
1 0 0
1 0 0
1 0 0
1 0 0
Именно в этих шести строках импликация F⇒G =0,
во всех других строках F=0, а 0⇒0 =1 и 0⇒1=1
Вывод: 6 - число значений 0 для функции F⇒G в таблице истинности.