1. Упростить выражение:
<span>(A→B)→C =</span>
(not A+ B)<span>→C =
not(not A +B) + C =
not(not A) * not B +C =
A* not B +C
2. Далее строим таблицу истинности:
Из которой видно, что только 3 набора переменных удовлетворяют условию.
Таблица во вложении.
</span>
Ответ: Знания, информация
Наглядное представление это, показ чего либо очень точно и понятно
Program abc;
uses crt;
var
a,b,c:integer;
begin
writeln ('Введите значение Первого числа (А)');
readln(a);
writeln ('Введите значение Второго числа (B)');
readln(b);
writeln ('Введите значение Третьего числа (C)');
readln(c);
If (a > b) and (b > c) then
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: True');
end
else
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: False');
end;
end.<span>
</span>
Var
a,b,h,x,f:real;
begin
Write('Введите a,b,h: ');
Read(a,b,h);
x:=a;
while x<=b do
begin
f:=sqrt(x)*sqr(cos(x));
Writeln(x:5:3,f:15:8);
x:=x+h
end
end.
Тестовое решение
Введите a,b,h: 0 3 0.25
0.000 0.00000000
0.250 0.46939564
0.500 0.54457910
0.750 0.46364281
1.000 0.29192658
1.250 0.11116410
1.500 0.00612832
1.750 0.04202995
2.000 0.24491094
2.250 0.59190315
2.500 1.01482406
2.750 1.41675413
3.000 1.69755726
var
a,b,h,x,f:real;
begin
Write('Введите a,b,h: ');
Read(a,b,h);
x:=a;
repeat
f:=sqrt(x)*sqr(cos(x));
Writeln(x:5:3,f:15:8);
x:=x+h
until x>b
end.
Тестовое решение
Введите a,b,h: 0 3 0.25
0.000 0.00000000
0.250 0.46939564
0.500 0.54457910
0.750 0.46364281
1.000 0.29192658
1.250 0.11116410
1.500 0.00612832
1.750 0.04202995
2.000 0.24491094
2.250 0.59190315
2.500 1.01482406
2.750 1.41675413
3.000 1.69755726