1.a)При А=0, В=0 выражение ложно.
Выполним действия по порядку:
1) B=0 истина
2) Not(истина) =ложь
3) (А=0) истина
4) истина and ложь =ложь
5) not(a=0) =ложь
6) ложь and истина = ложь
7) ложь or ложь = ложь
Б)При А=0, В=1 выражение истинно.
Так дальше 2, на 100% не уверен в правильности, так как это было в 8 классе.
Program prim_2;
Var a,b,c:real;
Begin
Write('введите три числа');
Readln(a,b,c);
If (a>b) and (a>c) then writeln (' max= ',a:0:2);
If (b>a) and (b>c) then writeln (' max= ',b:0:2);
If (c>a) and (c>b) then writeln (' max= ',c:0:2);
Readln
End.
И наконец то 3. Я не могу вспомнить подходящие команды, ошибки одни выдает. Надеюсь я тебе чем-то помог)))