3. напишите наибольшее число х, для которого истинно высказывание:
(x < 42) и не (в числе х нет одинаковых цифр)
ответ:
4. напишите наибольшее число х, для которого истинно высказывание:
(x < 55) и не (сумма цифр числа х не равна 10)
ответ:
5. напишите наибольшее число х, для которого истинно высказывание:
не (x > 19) и не (х чётное)
ответ:
6. напишите наибольшее число х, для которого истинно высказывание:
не (x > 38) и не (сумма цифр числа х не равна 4)
ответ:
7. напишите наибольшее число х, для которого истинно высказывание:
не (x > 47) и не (сумма цифр числа х больше 6)
ответ:
8. (а. кабанов) напишите наименьшее число х, для которого ложно высказывание:
не ( х> 73 ) или не (сумма цифр числа х больше 6)

На алгоритмическом.

a=массив(10..50);
max:=a[1]'
min:=a[1];
n_min:=0;
n_max:=0;
k:=0;
i:=10;

пока i<=50  делай
нц
  если a[i]>max то
    нц
     max:=a[i];
     n_max:=i;
    кц
  если a[i]<min то
   нц
    min:=a[i];
    n_min:=i;
   кц
 если (i mod 2)==0 то
   sum:=sum+a[i]; 
   k:=k+1;
кц

srednee_znachenie:=sum/k;

//

var
a:array(10..50) of integer;
max,min,n_min,n_max,k,i,sum:integer;
sr:float;

begin
 max:=a[1];
 min:=a[1];

 for i:=10 to 50 do
  begin
   if a[i]>max then
    begin
     max:=a[i];
     n_max:=i;
    end;
   if a[i]<min then
    begin
     min:=a[i]
     n_min:=i;
    end;
   if ((i mod 2)=0) then
    begin
     k:=k+1;
     sum:=a[i]+sum;
    end;
  end;
end;

sr:=sum/k;
end.

Допустим цифра AB
A+B=3k k=1,2,3... кратность к 3
A=3B условие 2-ое

получаем 3B+B=3k
4B=3k отсюда вывод вторая цифра кратная к 3,
то есть 3,6,9

При B=6 и B=9 => цифра A получится двухзначним
значит B=3, A=9

ответ 93

int x=0;
for(int i=1;i<10;i++)
  for(int j=1;j<10;j++)
     if(i%3==0 && i==3*j)
        {x=i*10+j;
         cout<<x<<endl;
         }

можно оптимизировать

for(int i=1;i<4;i=i++)
 if(i%3==0)
  {x=i*31;
         cout<<x<<endl;
         }

1й перебирает 99 вариантов
2й 3 варианта

Или просто можно сделать
cout<<"93"<<endl;

)))