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

Можно проверять каждую цифру числа со всеми цифрами, стоящими правее. Если найдутся равные цифры, ответ — «да».

Пример алгоритма:

1. Ввести число \(n\).
2. Пока \(n>0\), выделить последнюю цифру \(a\).
3. В оставшейся части числа проверить, встречается ли цифра \(a\).
4. Если встречается — одинаковые цифры есть.

Пример на Pascal:

readln(n);
flag := false;
while (n > 0) and not flag do
begin
  a := n mod 10;
  m := n div 10;
  while m > 0 do
  begin
    if m mod 10 = a then flag := true;
    m := m div 10;
  end;
  n := n div 10;
end;
if flag then writeln('Да') else writeln('Нет');

0 0 Пожаловаться