Для какого из значений числа х истинно высказывание не(х< 3)и(х< 4)? вот варианты ответов: 5, 2, 3, 4

Так нам надо из предложенных ответов узнать какое число истинно при высказывании не(x< 3)и(x< 4), то есть  не(x< 3)и(x< 4)=1 сначала вспомним таблицу истинности для: не(отрицание)  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.

1) procedure  insert(source: string;   var  s: string; index: integer);                   вставляет подстроку source в строку s с позиции indexprocedure  delete(var  s: string; index, count: integer);                   удаляет из строки s count символов с позиции index2)var s: string; i,n,code: integer; beginwrite('введите длинное число: '); readln(s); for i: =1 to length(s) do  begin  val(s[i],n,code);   if code=0 then writeln(n);   end; end.пример: введите длинное число: 34568102853456810285если не требуется выполнять арифметических действий с цифрами, то можно так: var s: string; i: integer; beginwrite('введите длинное число: '); readln(s); for i: =1 to length(s) do writeln(s[i]); end.

Алг массив нач   цел n = 30   целтаб a[1: n]   цел i, k, b   лог b1, b2     нц для i от 1 до n     вывод "a[",i,"] = "     ввод a[i]   кц   вывод нс     b1: =да   b2: =да   нц для i от 1 до n-1     если a[i]> a[i+1] то       b1: =нет     все     если a[i]< a[i+1] то       b2: =нет     все   кц   если b1=да то       вывод "массив по возрастанию", нс   все   если b2=да то       вывод "массив по убыванию", нс   все   k: =0   нц для i от 1 до n     если a[i]> 9 то       k: =k+1     все   кц   вывод "k = ",k, нс   нц для i от 1 до div(n,2)     b : = a[i]     a[i] : = a[div(n,2)+i]     a[div(n,2)+i] : = b   кц   вывод "измененный массив: ", нс   нц для i от 1 до n     вывод a[i], " "   кц кон