Паскаль АВС:
<span>
Числа a и b имеют разную четность.
if (a mod 2) <> (b mod 2) then
Одно из чисел a и b положительно.
</span><span><span>if (a >0) or (b >0) <span>then
</span></span>Одно из чисел a и b является квадратом другого.
if (a=b*b) or (b=a*a) then
Точка A(x,y) принадлежит первому или второму квадранту.
</span><span><span>if (y >0) <span>then
</span></span>Число a не больше среднего арифметического чисел b, c, d.</span>
<span>if (a <= (b+c+d)/3) <span>then</span></span>
1) Логическое умножение или конъюнкция (логическое И):
Конъюнкция - это сложное логическое выражение, которое считается истинным в том и только том случае, когда оба простых выражения являются истинными, во всех остальных случаях данное сложеное выражение ложно.
Обозначение: F = A & B.
Таблица истинности для конъюнкции
A&B=F
1&1=1
1&0=0
0&1=0
0&0=0
2) Логическое сложение или дизъюнкция (логическое ИЛИ):
Дизъюнкция - это сложное логическое выражение, которое истинно, если хотя бы одно из простых логических выражений истинно и ложно тогда и только тогда, когда оба простых логических выраженныя ложны.
Обозначение: F = A + B.
Таблица истинности для дизъюнкции
A+B=F
1+1=1
1+0=1
0+1=1
0+0=0
3) Логическое отрицание или инверсия (логическое НЕ):
Инверсия - это сложное логическое выражение, если исходное логическое выражение истинно, то результат отрицания будет ложным, и наоборот, если исходное логическое выражение ложно, то результат отрицания будет истинным. Другими простыми слова, данная операция означает, что к исходному логическому выражению добавляется частица НЕ или слова НЕВЕРНО, ЧТО.
Таблица истинности для инверсии
A неА
1 0
0 1
Begin
var c := 0;
var x := readinteger('Введите число:');
while x > 0 do
begin
x := x div 10;
c := c + 1;
end;
if(c = 3) then write('Да')
else write('Нет');
end.
Локальная-глобальная-локальная-глобальная-глобальная-глобальная
На горбушку) там много мастеров)