Скажите, , эти программы правильные? (название проги - номер ))program four; uses crt; var a, b, c, d, kop, rub: real; begin clrscr; writeln('sena 1 kg fruktov'); readln(a); b: =0; c: =0; d: =1000; repeat c: =c+b; writeln('ves fructa ne bolee 150 g'); чreadln(b); d: =d-b; until d< 0; c: =c/1000; a: =a*c; rub: =trunc(a); kop: =(frac(a))*100; writeln(rub: 4: 0,' rub ',kop: 4: 0,' kop'); readkey; end.​program two; uses crt; var a, b, c, d, n: integer; begin clrscr; readln(a); readln(n); c: =0; a: =a*100; while (a> 0) do begin a: =a-(n*2); c: =c+1; end; d: =c div 24; writeln('vsego chasov = ', c); writeln('vsego dney = ', d); readkey; end.program three; uses crt; var a,b,c,chislo1,chislo2,chislo3,max: integer; function summa(n: integer): integer; var s: integer; begin s: =0; n: =abs(n); while n> 0 do begin s: =s+n mod 10; n: =n div 10; end; summa: =s; end; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); chislo1: =summa(a); chislo2: =summa(b); chislo3: =summa(c); writeln('chislo 1 = ',chislo1); writeln('chislo 2 = ',chislo2); writeln('chislo 3 = ',chislo3); if chislo1> chislo2 then max: =chislo1 else max: =chislo2; if chislo3> max then max: =chislo3; writeln('max = ',max); readkey; end.program five; uses crt; var b, c, i, j : integer; begin clrscr; c: =0; for i : =1 to 7 do begin for j : =1 to 24 do begin readln(b); if (b< 754)or(b> 771) then c: =c+1; end; end; writeln('davlenie ne sootvetstvovalo norme ',c,' chasov za nedelu'); readkey; end.

Для удобства построения таблицы истинности введем логические переменные.

Обозначим 2*2=4 через a, 3*3=9 - через b.

Тогда высказывание примет вид:

Для этого выражения и построим таблицу истинности.

2. Для доказательства равносильности указанных выражений можно построить таблицы истинности и сравнить их.

Как видно, НЕСОВПАДЕНИЕ полное, т.е. ни при каком сочетании a и b выражения не равносильны. Это подтверждается  теорией - имеются законы де-Моргана, в которых еще присутствует общее отрицание или в правой. или в левой части.

Объяснение:

1.А) 3418 = 3∙82+4∙81+1∙80 = 192+32+1 = 22510

   Б) 3416 = 3∙62+4∙61+1∙60 = 108+24+1 = 13310

     В) 34116 = 3∙162+4∙161+1∙160 = 768+64+1 = 83310

   Г) 34.15 = 3∙51+4∙50+1∙5-1 = 15+4+0.2 = 19.210

   Д) E41A.1216 = 14∙163+4∙162+1∙161+10∙160+1∙16-1+2∙16-2 = 57344+1024+16+10+0.0625+0.0078125 = 58394.070312510

2.)A) 356-356=0/2 178-178=0/2 289-88=1/2 44-44=0/2 22-22=0/2 11-10=1/2 5-4=1/2 2-2=0/2 1-0=1=>35610=1011001002.

        356-352=4/8 44-40=4/8 40/8=5 => 35610=5448

         356-352=4/16 22-16=6/16 16=1; => 35610=16416

    Б)514-514=0/2 257-256=1/2 128-128=0/2 64-64=0/2 32-32=0/2 16-16=0/2 8-8=0/2 4-4=0/2 2-2=0/2 1=1 => 51410=10000000102

        514-512=2/8 64-64=0/8; 8-8=0/8; 1=1 =>51410=10028

        514-512=2/16 32-32=0/16 2=2 => 51410=20216

    В)2018-2018=0/2 1009-1008=1/2 504-504=0/2 252-252=0/2 126-126=0/2  63-62=1/2 31-30=1/2 15-14=1/2 7-6=1/2 3-2=1/2 1=1 => 201810 = 111111000102

        2018-2016=2/8  252-248=4/8 31-24=7/8 3=3 201810=>37428

        2018-2016=2/16 126-112=14=E/16=7 => 201810 =7E216

    Г)7654-7654=0/2 3827-3826=1/2 1913-1912=1/2 956-956=0/2 478-478=0/2 239-238=1/2 119-118=1/2 59-58=1/2 29-28=1/2 14-14=0/2 7-6=1/2 3-2=1/2=1 =>765410=11101111001102

             7654-7648=6/8 956-952=4/8 119-112=7/8 14-8=6/8=1=>765410=167468

        7654-7648=6/16 478-464=14=E/16 29-16=15=D/16=1 => 765410=1DE616

      Д)78-78=0/2 39-38=1/2 19-18=1/2 9-8=1/2  4-4=0/2 2-2=0/2=1=>10011102=7810

        78-72=6/8 9-8=1/8=1=>7810=1168

         78-64=14=E/16=4 =>7810=4E16

Я просто сам сейчас это решаю)