Вопрос по информатике:
Напишите программу, которая определяет, верно ли, что введённое число содержит по крайней мере две одинаковых цифры, возможно, не стоящие рядом (как, например, 212).
Входные данные
Входная строка содержит одно натуральное число.
Выходные данные
Программа должна вывести слово 'YES', если в числе есть две одинаковые цифры, и слово 'NO', если такой пары цифр нет.
Примеры
входные данные
212
выходные данные
YES
входные данные
12345
выходные данные
NO
На паскале, пожалуйста.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.10.2015 01:01
- Информатика
- remove_red_eye 3049
- thumb_up 29
Ответы и объяснения 1
C:array[0..9] of integer;
Begin
ReadLn(A);
While A0 do
Begin
C[A mod 10]:=C[A mod 10]+1;
A:= A div 10;
End;
While (A<9)and(C[A]<2) do A:=A+1;
if C[A]>1 then WriteLn('YES')
else WriteLn('NO');
End.
- 13.10.2015 09:33
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.