Question

Определить, все ли цифры натурального числа n одинаковы.

Answer 1

Pascal

 var   
a,b : integer;   
r : boolean;    
begin 
readln (a); 
r := true;  
b := a mod 10;     

While a > 0 do   
 begin   
  if a mod 10 <> b then   
  begin   
   r := false;   
   a := 0;   
  end;  
 a := a div 10;   
 end;       

if r then   
writeln ('Все цифры числа одинаковы')   
else   
writeln ('Цифры числа различны'); 
end.

Answer 2

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

1. Преобразуем число n в строку, чтобы было удобнее работать с его цифрами.

2. Получим первую цифру числа n, пройдясь по строке и взяв первый символ. Обозначим эту цифру за digit.

3. Пройдемся по каждой цифре числа n, начиная с второй. Если встретится цифра, отличная от digit, то выведем, что не все цифры числа n одинаковы.

4. Если пройдясь по всем цифрам числа n, мы не встретили отличной от digit цифры, то выводим, что все цифры числа n одинаковы.

Давайте рассмотрим пример:

Пусть n = 555555.

1. Преобразуем число в строку: str_n = "555555".

2. digit = str_n[0], то есть первая цифра числа n, digit = 5.

3. Проходимся по каждой цифре числа n, начиная со второй: - Для i = 1: - Если str_n[i] != digit (str_n[1] != 5), то выводим, что не все цифры числа n одинаковы. - Для i = 2: - Если str_n[i] != digit (str_n[2] != 5), то выводим, что не все цифры числа n одинаковы. - ... - Для i = 5: - Если str_n[i] != digit (str_n[5] != 5), то выводим, что не все цифры числа n одинаковы.

Таким образом, в примере числа n = 555555 все цифры одинаковы.

Мы рассмотрели метод определения, все ли цифры натурального числа n одинаковы. Используя рассмотренный алгоритм, вы можете проверять любое натуральное число на соответствие этому условию.