1) Var a:integer; Begin Writeln('Введите число'); Readln(a); If (a mod 2 = 0) then writeln('Введённое число чётное.') Else writeln('Введённое число чётное');<span> End.
2) </span>var A,A1,B,B1,C,C1:integer; Begin a:=4;b:=1;c:=7; Writeln('Дан треугольник со сторонами A=4 B=1 C=7'); Writeln('Введите стороны треугольника A,B,C'); Readln(A1,B1,C1); If (A=A1) and (B=B1) and (C=C1) then writeln('треугольники равны') Else writeln('треугольники не равны');<span> End.
3)</span>var x,y:integer; Begin write('Введите первый промежуток: '); readln(x); write('Введите второй промежуток: '); readln(y); if x<y then write('Отдаляется') else write('Приближается'); <span>end.</span>
Просто 1, т.к А ∨ неА = 1 (тут за А можно взять всё х·у), а 1 ∨ неважночто = 1 можно конечно расписать все скобки по другим правилам, но ответ тот же будет