Question

Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом. Пример:​Пример: Введите число: 553​Введите число: 535 Ответ: да.​Ответ: нет. Паскаль!!!

Answer 1

var

 i:integer;

 s:string;

begin

 readln(s);

 for i:=1 to length(s)-1 do

   if s[i]=s[i+1] then begin

     writeln('Да');

     exit;

   end;

 writeln('Нет');

end.

Пояснения:

для поиска повторяющихся цифр во введённом числе, будем проверять соседние числа. Проще перевести это число в строку и проверять соседние символы. Поэтому сразу считаем введённое число как строку символов. Это позволит так же использовать эту программу для поиска одинаковых соседних символов в обычном тексте (string).

В цикле проверяем соседние символы на равенство.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая выполняет указанную задачу:

pascalCopy code
program FindDuplicateDigits;
var
  number: Integer;
  digit, prevDigit: Integer;
  hasDuplicates: Boolean;
begin
  writeln('Введите число:');
  readln(number);
  
  hasDuplicates := false;
  prevDigit := -1;
  
  while number > 0 do
  begin
    digit := number mod 10;
    number := number div 10;
    
    if digit = prevDigit then
    begin
      hasDuplicates := true;
      break;
    end;
    
    prevDigit := digit;
  end;
  
  if hasDuplicates then
    writeln('Ответ: да.')
  else
    writeln('Ответ: нет.');
end.

После запуска программы она попросит вас ввести число с клавиатуры. Затем она проверит десятичную запись этого числа на наличие одинаковых цифр, стоящих рядом. В зависимости от результата, программа выведет "Ответ: да." или "Ответ: нет." соответственно.