Question

Визначити чи є повторення цифр у числі (паскаль ?

Answer 1

Так там е повторення

Answer 2

Так, я знаю, що ви можете використати мову програмування Паскаль для визначення чи є повторення цифр у числі. Ось приклад програми на Паскаль, яка допоможе вам вирішити цю задачу:

pascalCopy code
program CheckRepeatingDigits;

function HasRepeatingDigits(number: Integer): Boolean;
var
  digitCount: array[0..9] of Integer;
  digit: Integer;
begin
  // Ініціалізуємо масив, щоб відстежувати кількість зустрічаних цифр
  for digit := 0 to 9 do
    digitCount[digit] := 0;

  // Розділяємо число на цифри та підраховуємо їх кількість
  while number > 0 do
  begin
    digit := number mod 10;
    number := number div 10;
    digitCount[digit] := digitCount[digit] + 1;
  end;

  // Перевіряємо, чи є хоча б одна цифра, що зустрічається більше одного разу
  for digit := 0 to 9 do
  begin
    if digitCount[digit] > 1 then
    begin
      Result := True;
      Exit; // Завершуємо функцію і повертаємо True, якщо є повторення
    end;
  end;

  Result := False; // Якщо не знайшли повторень, то повертаємо False
end;

var
  numberToCheck: Integer;
begin
  // Запитуємо користувача ввести число для перевірки
  Write('Введіть число: ');
  ReadLn(numberToCheck);

  // Викликаємо функцію та виводимо результат
  if HasRepeatingDigits(numberToCheck) then
    WriteLn('У числі є повторювані цифри.')
  else
    WriteLn('У числі немає повторюваних цифр.');
end.

Ця програма попросить вас ввести число, а потім перевірить, чи є в ньому повторення цифр. Вона використовує масив digitCount, щоб підрахувати кількість кожної з десяти цифр (від 0 до 9) у введеному числі, а потім перевіряє, чи є яка-небудь цифра, яка зустрічається більше одного разу.