Программка паскаль Напишите программку, которая определяет, правильно ли, что введённое число
Программка паскаль Напишите программку, которая определяет, правильно ли, что введённое число содержит две одинаковых числа, стоящие рядом (как, к примеру, 221). Входные данные Входная строчка содержит одно естественное число. Выходные данные Программка обязана вывести слово 39;YES39;, если в числе есть две однообразные цифры, стоящие рядом, и слово 39;NO39;, если таковой пары цифр нет.
Задать свой вопросprogram two_digits;
var m, m1, n: integer;
//m и m1 цифры, стоящие в числе рядом.
//Определяются как остатки от деления числа n на 10,
//которое в цикле два раза делиться нацело на 10, и таким
//образом шаг за шагом утрачивает свои младшие разряды
begin
writeln(Введите число);
readln(n);
s:= No;
m1:= -1;
while n gt; 0 do
begin
m:= n mod 10;
if m = m1 then s:= Yes;
n:= n div 10;
m1:= n mod 10;
if m = m1 then s:= Yes;
n:= n div 10
end;
writeln(s)
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.
Математика.