Паскаль abc в записке слова зашифрованы-каждое из них записано наоборот.расшифровать сообщение.

Var     i,j,n: integer;     s,a,t: string; begin write('введи текст: '); readln(s);   n: =length(s); for i: =1 to n do    begin       a: =a+s[i];     if (s[i]=' ') or (i=n) then       begin         if i=n then a: =a+' ';         for j: = length(a) downto 1 do   t: =t+a[j];         a: ='';         end       end; writeln(t) end.

Var   a, b, c: string;   d: array of char : = (' ', ',', '.', '-', '! ', '? ');   e: array of char; begin   readln(a);   foreach b in a.split(d, system.stringsplitoptions.removeemptyentries) do   begin     e : = b.tochararray();     system.array.reverse(e);     write(string.create(e), ' ');   end; end.

Порядок неубывания,значит порядок возрастания. 2828 не может,так как если мы введём максимальное число 99999,то будет 2727 2512 не может, так как порядок возрастания,а 25> 12 2518 не может, так как порядок возрастания,а 25> 18 2524 не может, так как порядок возрастания,а 25> 24 2425 может(число 78997) 1825 может(число 72979)1225  может(число 12979) 123 не может,существует 2 варианта записи этого числа: 1)12 и 3,но такого быть не может,так как 12> 3 2)1 и 23,но такого быть не может,так как чтобы получилось 23 должны быть числа больше 7,а 1 получается слева,значит среднее число максимум 1,но нам оно не подходит итак,подходят 2425,1825,1225 ответ: 3

Не нечетное число - это четное число, поэтому:

не(x - нечетное) равносильно (x - четное)

x>=10 - в данное неравенство входят все x из промежутка [10;+oo), т.е на данном промежутке неравенство истинно. А ложно оно соотвественно на (-oo;10). Логическое "не" инвертирует данное неравенство( истина становится ложью, и наоборот), значит:

не(x>=10) равносильно (x<10), и промежуток x: (-oo;10)

В итоге:

не(x - нечетное) и не(x>=10)<=>(x - четное) и (x<10)

Полученное неравенство будет истинно для четных x из промежутка (-oo;10).

Наибольшее четное число из (-oo;10): 8

ответ: 8