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

1) Просим пользователя программы ввести число

writeln ('Введите натуральное число');

readln (a);

Запускаем цикл. Важно уточнить, что он длится до длины числа, меньшей на единицу, потому что будет ошибка, если этого не сделать.

Тогда цикл выйдет за допустимые границы.

for i:integer : = 1 to (length (a) - 1) do

if a[i] = a[I + 1] then

begin

writeln ('Верно');

break;

end;

else

writeln ('Не верно');

2) Тут будем использовать такой же цикл, но он будет сравнивать каждую цифру с каждой другой цифрой. И как только найдутся одинаковые значения, программа покинет цикл с помощью оператора break:

for i:integer : = 1 to (length (a) - 1) do

for j:integer : = 1 to length (a) do

if a[i] = a[j] then

begin

writeln ('Верно');

break; - этот оператор поможет не выполнять лишнюю работу.

end;

else

writeln ('Не верно');