Логическое выражение ¬(a v b) & (¬a v b) равносильно выражению:

Логическое выражение ¬(a v b) & (¬a v b) равносильно выражению:   ¬a

Var n,a: integer; begin write('n = '); read(n); a: =0; while n> 0 do     begin     if (n mod 10) > a then a: = n mod 10;     n: =n div 10;     end; write(a) end. var n,a,b: integer; c: boolean; begin write('n = '); read(n); a: =-1; b: =-2; c: =false; while n> 0 do     begin     if a=b then c: =true;     if n> 0 then           begin           a: =n mod 10;           n: =n div 10;           end;     if a=b then c: =true;     if n> 0 then           begin           b: =n mod 10;           n: =n div 10;           end;     end; if a=b then c: =true; if c then write('есть') else write('нет') end.

Var a,b,m1,m2: integer; begin write('a = '); read(a); write('b = '); read(b); a: =abs(a); b: =abs(b); m1: =a mod 10; a: =a div 10; if a mod 10 > m1 then m1: =a mod 10; a: = a div 10; if a mod 10 > m1 then m1: =a mod 10; m2: =b mod 10; b: =b div 10; if b mod 10 > m2 then m2: =b mod 10; a: = b div 10; if b mod 10 > m2 then m2: =b mod 10; writeln('максимальная цифра в a = ',m1); writeln('максимальная цифра в b = ',m2); end. var i: integer; begin write('кратные 4: '); for i: = 1 to 1000 do     if i mod 4 = 0 then write(i,' '); writeln; write('кратные 8: '); for i: = 1 to 1000 do     if i mod 8 = 0 then write(i,' '); writeln; write('кратные 2: '); for i: = 1 to 1000 do     if i mod 2 = 0 then write(i,' '); writeln; write('кратные 4,8,2: '); for i: = 1 to 1000 do     if i mod 8 = 0 then write(i,' '); writeln; end.