Question

Дано четырехзначное число.Определите есть ли одинаковые цифры в нем. PASCAL

Answer 1

PascalABC.NET 3.4

begin
  var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой
  var l1 := s.Length; // всего цифр
  var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
  if l1 = l2 then Writeln('Одинаковых цифр нет')
  else Writeln('Одинаковые цифры есть')
end.

Answer 2

Для определения наличия одинаковых цифр в четырехзначном числе на языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program FindDuplicateDigits;
var
  number, tempNumber: integer;
  digits: array[0..9] of boolean;
  hasDuplicate: boolean;
begin
  hasDuplicate := false;

  // Инициализация массива digits
  for i := 0 to 9 do
    digits[i] := false;

  // Ввод четырехзначного числа
  write('Введите четырехзначное число: ');
  readln(number);

  // Проверка наличия одинаковых цифр
  tempNumber := number;
  while tempNumber > 0 do
  begin
    if digits[tempNumber mod 10] then
    begin
      hasDuplicate := true;
      break;
    end
    else
    begin
      digits[tempNumber mod 10] := true;
      tempNumber := tempNumber div 10;
    end;
  end;

  // Вывод результата
  if hasDuplicate then
    writeln('В числе есть одинаковые цифры.')
  else
    writeln('В числе нет одинаковых цифр.');

  readln;
end.

Этот код сначала инициализирует массив digits, затем считывает четырехзначное число и проверяет, есть ли одинаковые цифры в числе, используя массив digits. Если есть одинаковые цифры, программа сообщит об этом.