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.