Давайте разберем, как можно решить поставленные задачи с помощью языка программирования Turbo Pascal, используя операторы while и repeat.

Сначала рассмотрим задачу с двухзначными числами.

1. Двухзначные числа с разницей между цифрами не более 1

Для решения этой задачи нам нужно будет перебрать все двухзначные числа (от 10 до 99) и проверить разницу между их цифрами.

1. Начнем с объявления переменной для двухзначного числа. Например, назовем её num.
2. Используем цикл while, чтобы перебрать числа от 10 до 99.
3. Для каждого числа извлечем старшую и младшую цифры. Старшая цифра - это num div 10, а младшая - это num mod 10.
4. Проверим, чтобы разница между этими цифрами не превышала 1.
5. Если условие выполняется, выведем число на экран.

Пример кода:

var
    num: Integer;
begin
    num := 10;
    while num <= 99 do
    begin
        if (num div 10 - num mod 10 <= 1) and (num div 10 - num mod 10 >= -1) then
            WriteLn(num);
        num := num + 1;
    end;
end.

Теперь перейдем ко второй задаче.

2. Трехзначные числа, в которых хотя бы две цифры совпадают

Для этой задачи нам также нужно перебрать все трехзначные числа (от 100 до 999) и проверить, совпадают ли их цифры.

1. Объявим переменную для трехзначного числа, например, num.
2. Используем цикл repeat, чтобы перебрать числа от 100 до 999.
3. Извлечем каждую цифру числа: сотни, десятки и единицы. Сотни - это num div 100, десятки - это (num div 10) mod 10, единицы - это num mod 10.
4. Проверим, совпадают ли хотя бы две цифры. Это можно сделать с помощью нескольких условий.
5. Если хотя бы одно условие выполняется, выведем число на экран.

Пример кода:

var
    num: Integer;
begin
    num := 100;
    repeat
        var hundreds := num div 100;
        var tens := (num div 10) mod 10;
        var units := num mod 10;

        if (hundreds = tens) or (hundreds = units) or (tens = units) then
            WriteLn(num);
        
        num := num + 1;
    until num > 999;
end.

Таким образом, мы рассмотрели, как использовать операторы while и repeat для решения данных задач в Turbo Pascal. Надеюсь, это поможет вам в освоении языка!