Ввести натуральное число и найти, верно ли, что в его записи
Ввести естественное число и определить, правильно ли, что в его записи есть две одинаковые числа, стоящие рядом. На Паскале через REPEAT - UNTIL
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.