Для какого из числ истинно высказыванием: (первая цифра четная) и не (сумма цифр чётная)? 1) 648 2)452 3)357 4)423 5)175

Логическое умножение ( т к   союз и )   следовательно должны выполниться два логических выражения в скобках одновременно но перед второй скобкой стоит операция отрицания - все меняем на противоположное во второй скобке (первая цифра четная) и   (сумма цифр нечётная)подходит   2 и 4 ответ 

Var s,st: string;     a: array[1..255] of integer;     i: integer;     begin   write('строка: ');   readln(s);   for i: =1 to 255 do a[i]: =0;   for i: =1 to length(s) do inc(a[ord(s[i])]);   st: ='';   for i: =1 to length(s) do     if ((a[ord(s[i])]> =2) and         (s[i] in ['а'..'я']))   then continue     else st: =st+s[i];   writeln('новая строка: ',st); end. строка: это строка для проверки. новая строка: э са для пвеи. если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы: var s: string;     a: array[1..255] of integer;     i,j: integer;     begin   write('строка: ');   readln(s);   for i: =1 to 255 do a[i]: =0;   for i: =1 to length(s) do   if ord(s[i])> 32 then   begin     inc(a[ord(s[i])]);     if s[i] in ['а'..'я'] then inc(a[ord(uppercase(s[i]))])     else if s[i] in ['а'..'я'] then inc(a[ord(lowercase(s[i]))]);   end;     j: =0;   for i: =1 to length(s) do   if (a[ord(s[i])]> =2) then continue   else    begin     inc(j);     s[j]: =s[i];   end;     delete(s,j+1,length(s)-j);   writeln('новая строка: ',s); end.