Нам нужно найти наибольшее число x, при котором данное выражение ложно. Когда оно вообще ложно?
В данном логическом выражении используется дизъюнкция (ИЛИ), которая ложна только в одном случае - это когда оба выражения ложны. Когда же выражения ложны? Рассмотрим же их. В обоих выражениях фигурирует отрицание. То есть, выражение в скобках должны быть истинным. Объясняю:
НЕ (истина) = ложь
А это значит, что условие (x < 10) и (число чётное) должны выполняться. Нам нужно найти наибольшее чётное число. Это не может быть 10, поскольку знак неравенства строгий, следовательно, ближайшее наибольшее чётное число - это 8.
ответ8
Задание 2Для данного выражения требуется выполнение следующих условий:
НЕ (x < 7) должно быть ложным, то есть (x < 7) должно быть истинным(x < 6) должно быть ложнымВторое выражение мы можем преобразовать так:
(x ≥ 6). Почему 6 включительно? Потому что, подставив шестёрку в исходное выражение получим: 6 < 6 - ложь. Итого наше выражение имеет вид:
НЕ (x < 7) или (x ≥ 6). Нужно найти наибольшее число, при котором выражение ложно. Это число: 6.
ответ6
Задание 3Такое же, как и 2
Задание 4Решается абсолютно также, как и 2. Дизъюнкция - значит в обеих частях выражения должна быть ложь. Когда ложь получается в двух выражениях? Рассмотрим эти случаи:
НЕ (x < 6) ложно тогда, когда (x < 6) истинно(x < 5) ложно тогда, когда (x ≥ 5)Итого:
НЕ (x < 6) ИЛИ (x ≥ 5)
ответ5
Если квадратов десять, то:
[если честно, лет 7 не кодил на паскале, поэтому могу ошибаться в синтаксисе или каких-то деталях]
задаем 3 массива числовых элементов:
var
S, P, x: array[1..10] of integer; //S - будущие площади, P - периметры, x - стороны квадратов
i: integer; //счетчик для цикла
begin
for i := 1 to 10 do
begin
Writeln("Введите сторону "+IntToStr(i)+" квадрата:");
Readln(x[i]);
end; //ввели стороны, теперь вычисляем площади и периметры:
for i := 1 to 10 do
begin
S[i] := x[i]*x[i]; //для нахождения площади перемножаем стороны каждого квадрата
P[i] := x[i]*4; //для нахождения периметра - умножаем сторону квадрата на 4
//и тут же выводим это на экран:
Writeln("Площадь "+IntToStr(i)+" квадрата равна "+IntToStr(S[i]));
Writeln("Периметр "+IntToStr(i)+" квадрата равен "+IntToStr(P[i]));
Writeln;
end;
Readln //это чтоб дождаться нажатия Энтер перед закрытием окошка :)
end;
Должно работать.
111000,0001
Объяснение: