Question

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

Answer 1

Var   
 i: integer; 
  n: string; 
  b: boolean;
BEGIN 
 writeln('N = ?'); 
  readln(n); 
 b:= false;

   for i:= 1 to length(n)-1 do   
   if n[i] = n[i+1] then         b:= true;   
     write(b); 
 readln
END.

Answer 2

Для решения этой задачи вам потребуется написать программу на языке Паскаль. Вот пример такой программы:

program CheckAdjacentDigits;
var
  number, digit1, digit2, temp: integer;
  found: boolean;
begin
  // Ввод числа
  write('Введите целое число: ');
  readln(number);

// Инициализация переменных
  digit1 := number mod 10;
  number := number div 10;
  digit2 := number mod 10;
  found := false;

// Поиск двух одинаковых цифр, стоящих рядом
  while (number > 0) and (not found) do
  begin
    if (digit1 = digit2) then
    begin
      found := true;
    end
    else
    begin
      temp := digit2;
      digit2 := number mod 10;
      number := number div 10;
      digit1 := temp;
    end;
  end;

// Вывод результата
  if found then
    writeln('В записи числа есть две одинаковые цифры, стоящие рядом.')
  else
    writeln('В записи числа нет двух одинаковых цифр, стоящих рядом.');
end.

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

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

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.