Напишите наименьшее число x, для которого истинно высказывания (x> 40) и не (x нечётное) ?

Объяснение:

потому что оно больше 40 и оно не четное

На первое место можно поставить любую из шести допустимых букв (кроме ийо). На второе место можно поставить любую из шести оставшихся букв (ийо уже можно использовать), на третье – любую из шести оставшихся и т. д. Всего получается 6*6*5*5*3*2*1=5400 вариантов. Но в этих вариантах посчитаны слова, в которых ол стоят рядом, их количество нужно вычесть.
Количество слов с ол можно подсчитать по той же схеме, если считать ол единой буквой. У нас остаётся буквы: Н, Б, Е, ИЙ, причём слово не может начинаться с Й. Количество таких слов равно 6*5*5*3*2*1=900. Всего возможных кодов получается 5400-900=4500.
Ответ: 4500.

Код программы:

var i, sum, a:integer;

begin

 writeln('Четные числа:');

 for i:= 72 to 134 do begin

   if i mod 2 = 0 then

     write(i, ' ');

 end;

 

 writeln();

 writeln();

 writeln('Числа, оканчивающиеся на "3":');

 for i:= 72 to 134 do begin

   if i mod 10 = 3 then

     write(i, ' ');

 end;

 

 writeln();

 writeln();

 writeln('Числа, сумма цифр которых меньше 11:');

 for i:= 72 to 134 do begin

   a:= i;

   sum:= 0;

   while a <> 0 do begin

     sum := sum + a mod 10;

     a := a div 10;

   end;

   if sum < 11 then

     write(i, ' ');

 end;

end.