Размещено 5 лет назад по предмету Информатика от vanzik

Напишите программу, которая определяет, верно ли, что введённое число содержит по крайней мере две одинаковых цифры, возможно, не стоящие рядом

Ответ на вопрос

Ответ на вопрос дан Аккаунт удален

var
s: string;
i, j, n: integer;
c: char;
flag: boolean;

begin
Write('Введите произвольное число: '); Readln(s);
flag := false;
n := length(s);
i := 1;
while (i <= n) and (not flag) do
begin
    c := s[i];
    j := i + 1;
    while (j <= n) and (not flag) do
      if s[j] = c then flag := true else j := j + 1;
    if (not flag) then i := i + 1
end;
if flag then Writeln('Символ "', c, '" встречается больше одного раза')
else Writeln('Все символы уникальны')
end.

Тестовое решение:
Введите произвольное число: 16379068
Символ "6" встречается больше одного раза
1. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Так тут кроме оператора цикла и описание, и присваивание, и условный оператор и ввод-вывод... все, как и у меня - других операторов я тоже не использовал
2. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  И потом, Ваша программа врёт: дайте ей число 213456718 - она пишет, что одинаковых цифр НЕТ
3. Ответ на вопрос
  
  Ответ на вопрос дан vanzik
  
  верно. спасибо
4. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Но врет она не потому, что неверно написано, а потому что число 213456718 выходит за пределы разрядной сетки, отведенной для integer, а паскаль по этому поводу молчит. Во избежание подобной ошибки я использовал строковое. а не числовое представление числа, поскольку Вы не указали, в каком диапазоне могут находиться вводимые числа. И еще, Вы не указали, что числа должны быть только целыми, на строке можно вводить любые.
5. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Совет: ответ начинайте писать в форме "В числе xxxxx ..." - тогда будет видно, какое число на самом деле программа обрабатывала.