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

Пример:

Введите целое число: Введите целое число:

1232 1224

Нет. Да.

Через ветвление, while, repeat, until

Question

Информатика

Исакий

17 июня, 10:19

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

Пример:

Введите целое число: Введите целое число:

1232 1224

Нет. Да.

Через ветвление, while, repeat, until

+1

Ответы (1)

Знаете ответ на вопрос?

Артемьюшка · Answer 1

Var A:longint;

k:byte;

Begin

k:=0;

WriteLn ('Введите целое число: ') ; ReadLn (A) ;

While A div 10 0 do

Begin

if (A div 10) mod 10 = A mod 10 then k:=1;

A:=A div 10

End;

if k = 1 then Write ('Да.')

else Write ('Нет.')

End.