1) Создайте программу, которая проверяет, является ли введенное число состоящим из одинаковых цифр (например, 222

Конечно! Для начала давайте разберемся с первой задачей - проверкой, является ли введенное число состоящим из одинаковых цифр.

Для того чтобы решить эту задачу, мы можем воспользоваться следующим алгоритмом:

1. Считываем введенное число с помощью команды Readln.
2. Преобразуем число в строку для удобства обработки.
3. Сравниваем все символы строки с первым символом. Если находим отличающийся символ, то выводим сообщение о том, что число не состоит из одинаковых цифр.
4. Если все символы равны первому символу, то выводим сообщение о том, что число состоит из одинаковых цифр.

Приведу пример программы на языке Паскаль, которая реализует данный алгоритм:

pascal

program CheckSameDigits;



var

  num: Integer;

  strNum: String;

  i: Integer;



begin

  Write("Введите число: ");

  Readln(num);

  

  strNum := IntToStr(num);

  for i := 2 to Length(strNum) do

  begin

    if strNum[i] <> strNum[1] then

    begin

      Writeln("Число ", num, " не состоит из одинаковых цифр.");

      Exit;

    end;

  end;

  

  Writeln("Число ", num, " состоит из одинаковых цифр.");

end.

Теперь перейдем к второй задаче - определению, содержит ли введенное число две одинаковые цифры, расположенные рядом.

Для решения данной задачи мы можем воспользоваться следующим алгоритмом:

1. Считываем введенное число с помощью команды Readln.
2. Преобразуем число в строку для удобства обработки.
3. Проходимся по всем символам строки, начиная с первого символа.
4. Если текущий символ равен следующему символу, то выводим сообщение о том, что число содержит две одинаковые цифры, расположенные рядом.
5. Если мы прошлись по всей строке и не нашли две одинаковые цифры, расположенные рядом, то выводим сообщение о том, что число не содержит таких цифр.

Вот пример программы на языке Паскаль, реализующей этот алгоритм:

pascal

program CheckAdjacentDigits;



var

  num: Integer;

  strNum: String;

  i: Integer;



begin

  Write("Введите число: ");

  Readln(num);

  

  strNum := IntToStr(num);

  for i := 1 to Length(strNum) - 1 do

  begin

    if strNum[i] = strNum[i+1] then

    begin

      Writeln("Число ", num, " содержит две одинаковые цифры, расположенные рядом.");

      Exit;

    end;

  end;

  

  Writeln("Число ", num, " не содержит двух одинаковых цифр, расположенных рядом.");

end.

Надеюсь, эти программы помогут школьникам проверить числа на условия, указанные в задачах! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.