Ответ:
Смотри картинку
Объяснение:
1. А = (X > 2)
Подставляем значения Х
Х = 2 А = (X > 2) = (2 > 2) = ложь
Х = 3 А = (X > 2) = (3 > 2) = истина
Х = 5 А = (X > 2) = (5 > 2) = истина
Х = 6 А = (X > 2) = (6 > 2) = истина
2. НЕ А = НЕ (Х > 2) (значение противоположно исходному)
А = ложь НЕ А = НЕ (Х > 2) = истина
А = истина НЕ А = НЕ (Х > 2) = ложь
А = истина НЕ А = НЕ (Х > 2) = ложь
А = истина НЕ А = НЕ (Х > 2) = ложь
3. В = (X > 5)
Подставляем значения Х
Х = 2 В = (X > 5) = (2 > 5) = ложь
Х = 3 В = (X > 5) = (3 > 5) = ложь
Х = 5 В = (X > 5) = (5 > 5) = ложь
Х = 6 В = (X > 5) = (6 > 5) = истина
4. (НЕ А) И (В) (истина, когда оба высказывания истина)
(НЕ А = истина) И (В = ложь) = ложь
(НЕ А = ложь) И (В = ложь) = ложь
(НЕ А = ложь) И (В = ложь) = ложь
(НЕ А = ложь) И (В = истина) = ложь
Var a,b,c:real;
<span>begin </span>
<span>readln(a); </span>
<span>readln(b); </span>
<span>readln(c); </span>
<span>if (b*b-4*a*c)>=0 then writeln('deistvitelnie korni est!') else writeln('deistvitelnih korney net'); </span>
<span>if (b*b-(4*a*c))>0 then begin writeln('2 kornya'); writeln('x1= ',(-b-sqrt(b*b-4*a*c))/(2*a)); writeln('x2= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>if (b*b-(4*a*c))=0 then begin writeln('1 koren'); writeln('x= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>end.</span>
Var a, b, c, v, s:integer;
begin
read(a, b, c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
end.
Program inf;
var
diag, storona, diag2, otvet, S: real;
begin
write('Введите сторону ');
readln(storona);
write('Введите диагональ ');
readln(diag);
diag := diag / 2;
diag2 := sqrt(sqr(storona) - sqr(diag));
S := diag * diag2 * 2;
writeln(S: 4: 2);
end.