Ввести натуральное число и найти, верно ли, что в его записи

Ввести естественное число и определить, правильно ли, что в его записи есть две одинаковые числа, стоящие рядом. На Паскале через REPEAT - UNTIL

Задать свой вопрос
1 ответ

program zz1;

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

begin

write( введите естественное число );

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

k:=n mod 10;  //получаем заключительную цифру

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

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

repeat   // организуем цикл, пока в числе есть числа

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

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

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

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

until n=0;

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

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

else writeln( Ошибочно ); // по другому, выводим иной ответ

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт