Напишите наименьшее число x, для которого истинно высказывание:
НЕ (x < 32) И НЕ (сумма цифр числа x не равна 15)

Для начала снимем отрицание.

X >= 32 И сумма цифр числа X равна 15.

Нам нужно чтобы сумма цифр была равна 15.

Из чего мы можем сделать 15?

Из 8 и 7, из 9 и 6, да в общем-то и всё.

Ну можно взять перебором, если Вы не понимаете как это делается.

87, 78, 96, 69. Нам нужно наименьшее.

А наименьшее у нас 69.

ответ: 69

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.