Question

Напишите программу которая определяет Верно ли что введенное число содержит по крайней мере две одинаковые цифры Возможно не стоящие рядом Паскаль

Answer 1

Вот пример программы на языке Pascal, которая определяет, содержит ли введенное число по крайней мере две одинаковые цифры:

program CheckDuplicateDigits;
var
  number, tempNumber, digit, count: integer;
  digits: array[0..9] of boolean;
begin
  // Ввод числа
  writeln('Введите число:');
  readln(number);
  
  // Инициализация массива digits
  for digit := 0 to 9 do
    digits[digit] := false;
  
  // Проверка наличия дубликатов цифр
  tempNumber := number;
  count := 0;
  while tempNumber > 0 do
  begin
    digit := tempNumber mod 10;
    tempNumber := tempNumber div 10;
    
    if digits[digit] then
    begin
      count := count + 1;
      if count >= 2 then
        break;
    end
    else
      digits[digit] := true;
  end;
  
  // Вывод результата
  if count >= 2 then
    writeln('Число содержит по крайней мере две одинаковые цифры.')
  else
    writeln('Число не содержит по крайней мере две одинаковые цифры.');
end.

Программа сначала запрашивает у пользователя ввод числа. Затем она проходит по каждой цифре числа и проверяет, встречалась ли эта цифра ранее. Для этого используется массив `digits`, в котором каждому возможному значению цифры (от 0 до 9) соответствует элемент массива типа `boolean`. Если цифра уже встречалась ранее, увеличивается счетчик `count`. Если `count` достигает значения 2 или больше, программа прекращает проверку и выводит сообщение о наличии двух одинаковых цифр в числе. Если `count` меньше 2, программа выводит сообщение о отсутствии двух одинаковых цифр в числе.