Нужна Блок-схема program _1;
var
x, y: real;
begin
writeln ('Введите через пробел значения x и y:');
readln (x, y);
if x > 0 then
if y > 0 then
writeln ('I')
else
writeln ('IV')
else
if y > 0 then
writeln ('II')
else
writeln ('III');
end.
program _3;
const
A = 1;
B = 2;
C = 3;
var
y, m: real;
begin
y := cos(A - B) * C;
m := trunc(y) mod 3;
writeln(y:0:3);
writeln(m:0:3);
if m = 0 then
y := trunc(y)
else if m = 1 then
y := y - trunc(y);
writeln(y:0:3);
end.
Сначала вспомним таблицу истинности для:
НЕ(отрицание)
0 = 1
1 = 0
И(Импликация) то есть логическое умножение
0 0 = 0
0 1 = 0
1 0 = 0
1 1 = 1
Проверяем по порядку:
Число 5 подставляем НЕ(5<3)и(5<4) p.s 5<3, 3 не больше 5 тогда ставим 0 и следовательно 4 не больше 5 -> НЕ(0)и(0) -> 1 и 0, смотрим таблицу 0.
Число 2 подставляем НЕ(2<3)и(2<4) -> НЕ(1)и(1) -> 0 и 1 = 0.
Число 3 подставляем НЕ(3<3)и(3<4) -> НЕ(0)и(1) -> 1 и 1 = 1, вот и нашли правильный ответ.
Для верности проверим последнее число.
Число 4 подставляем НЕ(4<3)и(4<4) -> НЕ(0)и(0) -> 1 и 0 = 0.
Решая последнее число убедились, что правильный ответ 3.