Question

Здравствуйте, помогите пожалуйста решить в Паскале "Вывести в 7 столбиков все шестизначные числа в которых встречается только две одинаковые цифры"

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var c:=0;
  for var i:=100000 to 999999 do begin
    var a:=i.ToString.ToCharArray;
    if a.Distinct.Count=5 then begin
      c+=1;
      if c<7 then Print(i)
      else begin Println(i); c:=0 end
      end
    end
end.

Результат (приведено только начало)
100234 100235 100236 100237 100238 100239 100243
100245 100246 100247 100248 100249 100253 100254
100256 100257 100258 100259 100263 100264 100265
100267 100268 100269 100273 100274 100275 100276
100278 100279 100283 100284 100285 100286 100287
100289 100293 100294 100295 100296 100297 100298

Таких чисел 408 240 и они займут 58 320 строк

Answer 2

Конечно, я могу помочь вам с написанием программы на Pascal, которая выводит все шестизначные числа, в которых встречаются только две одинаковые цифры. Вот пример программы:

program TwoSameDigits;

var
  number: integer;

begin
  // Цикл по всем шестизначным числам
  for number := 100000 to 999999 do
  begin
    // Преобразование числа в строку для удобства работы с цифрами
    var numberStr: string := IntToStr(number);

// Переменная для подсчета одинаковых цифр
    var countSameDigits: integer := 0;

// Перебор всех цифр числа
    for var i := 1 to Length(numberStr) - 1 do
    begin
      // Сравнение текущей цифры с предыдущей
      if numberStr[i] = numberStr[i + 1] then
        Inc(countSameDigits);
    end;

// Если ровно две одинаковые цифры, выводим число
    if countSameDigits = 1 then
      writeln(number);
  end;
end.

В данной программе используется вложенный цикл для перебора всех шестизначных чисел. Для каждого числа происходит преобразование в строку, после чего сравниваются соседние цифры. Если находится ровно одна пара одинаковых цифр, то число выводится на экран.

Обратите внимание, что Pascal не является самым современным языком программирования, и в некоторых современных контекстах может быть заменен на более актуальные языки, такие как Python, Java, C++ и другие.