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

12 Дек 2019 в 19:54
596 +1
0
Ответы
2

uses crt;

var

s:string;

i,j,x:integer;

begin

clrscr;

x:=0;

writeln('Chislo:');

readln(s);

for i:=1 to length(s) do

for j:=1 to length(s) do

if (s[i]=s[j]) and (i<>j) then

x:=x+1;

if x>0 then writeln('YES') else writeln('NO');

readln;

end.

12 Дек 2019 в 22:59

Или так

uses crt;

var

s:string;

i,j,x:integer;

begin

clrscr;

x:=0; //счётчик повторяющихся цифр

writeln('Chislo:');

readln(s); //вводим число

for i:=1 to length(s) do // берём цифру для проверки

for j:=1 to length(s) do // цикл для сравнения выбранной цифры с остальными цифрами числа

if (s[i]=s[j]) and (i<>j) then //если цифры равны и их индексы различны (если не проверяет само себя) то

x:=x+1;//фиксируем совпадение

if x>0 then writeln('YES') else writeln('NO');//если совпадения были, то выводим ДА, иначе НЕТ

readln;

end.

12 Дек 2019 в 22:59
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Название заказа не должно быть пустым
Введите email
Бесплатные доработки
Гарантированные бесплатные доработки
Быстрое выполнение
Быстрое выполнение от 2 часов
Проверка работы
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Название заказа не должно быть пустым
Введите email
Доверьте свою работу экспертам
Разместите заказ
Наша система отправит ваш заказ на оценку 82 685 авторам
Первые отклики появятся уже в течение 10 минут
Прямой эфир