Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. Например, 1234 - нет; 1224 - да. Обязательно должен присутствовать цикл с предусловием while do. Информатика. 8 класс. Паскаль ABC.

program zz1;

var s, n, k, p:integer; / / задаем переменные целого типа

begin

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

read (n); / / вводим с клавиатуры число

k:=n mod 10; / /получаем последнюю цифру

s:=k; / / запоминаем ее

n:=n div 10; / /отбрасываем ее

while n > 0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / /получаем последнюю цифру

if k = s then p:=1; / / сравниваем с предыдущей

s:=k; / / запоминаем ее

n:=n div 10; / /отбрасываем ее

end;

if p = 1 / / проверяем, если нашлись две одинаковые

then writeln (' Верно ') / / выводим один ответ

else writeln (' Неверно '); / / иначе, выводим другой ответ

end.