Докажите с использованием таблицы истинности законы де Моргана.

Начнём с того, что произведение цифр числа меньше двадцати не будет больше десяти. Первое число - 26, т.к. 2* 6 = 12.

А вообще, можно сделать проще.

Алгоритм звучит так:

икс = 10

Пока число(возьмем его за икс) > 9 и < 100:

   если первая цифра строки икс "string(x[0])" (или как-то так) умноженная на x[1] больше 10:

       вывести это число на экран

       прибавить к иксу еденицу

Уточню: насколько я знаю, разглядывать строку как массив позволяет только питон, есть другой Если вы учили преобразование одного типа в другой, вроде вещественного числа 1.23 в целое число (1 в данном случае), можно поделить икс на 10, преобразовать его обратно в целое число, это и будет первая цифра

Вторая цифра - это от икса отнять первую цифру, умноженную на 10.

Цикл "пока" - вроде-бы WHILE.

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

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.