Question

Паскаль!!!!! Введите натуральное многозначеое число и определите, верно ли, что в его записи есть две одинаковые цифры, не обязательно стоящие рядом. Массивы еще не проходили, поэтому циклы и условия. Помогите, пожалуйста!!!!!!!!!!!!!

Answer 1

Суть в том, что переводишь число в строковый формат и далее работаешь с ним как с одномерным массивом (чем и является по сути строка).
Во внешнем цикле выбирается по порядку от 1 до (длина строки -1, т.е. до предпоследнего) цифра числа. Во внутреннем цикле эта цифра сравнивается с каждой последующей по-порядку до тех пор пока не найдется одинаковая. Если нашлась, то выход из цикла. Из внешнего цикла так же предусмотрен выход если нашлась пара равных цифр.
program z1;
var n: int64; l: integer; s: string; i, j: byte; x: boolean;
begin
   writeln ('введите число');
   readln (n);
   Str(n,s);
   l:=length(s);
   x:=false;
     for  i:=1 to l-1 do begin
        for  j:=i+1 to l do begin
          if s[i]=s[j] then begin x:=true; break; end;
        end;
      if x=true then break;
     end;
   writeln (x);  
end.

Answer 2

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

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

Ниже представлен пример кода на языке Паскаль:

program FindDuplicateDigits;
var
  number: integer;
  digits: string;
  i, j: integer;
  duplicate: boolean;
begin
  write('Введите натуральное многозначное число: ');
  readln(number);
  
  digits := IntToStr(number);
  duplicate := false;
  
  for i := 1 to Length(digits) - 1 do
  begin
    for j := i + 1 to Length(digits) do
    begin
      if digits[i] = digits[j] then
      begin
        duplicate := true;
        break;
      end;
    end;
    
    if duplicate then
      break;
  end;
  
  if duplicate then
    writeln('В числе есть две одинаковые цифры.')
  else
    writeln('В числе нет двух одинаковых цифр.');
end.

После выполнения программы будет выведено сообщение о наличии или отсутствии двух одинаковых цифр в заданном числе.