Ввести целое число и определить, верно ли, что в его записи есть две подряд идущие одинаковые цифры. Паскаль. Пример:
Введите целое число: Введите целое число:
1234 1224
Нет. Да.
138
389
Ответы на вопрос:
Program nd;
var n, n1, d, d1: Integer;
b: Boolean;
begin
write('Введите число n; n>9: ');
readln(n);
b:= false;
while (n>9) and (not b) do
begin
d:= n mod 10;
n1:= n div 10;
while (n1>0) and (not b) do
begin
d1:= n1 mod 10;
b:= d1 = d;
n1:= n1 div 10;
end;
n:= n div 10;
end;
if b then writeln('Да')
else writeln('Нет');
end.
Объяснение:
Популярно: Информатика
-
gladishsofiya15.12.2020 10:05
-
мозг2017а08.05.2023 08:32
-
Юлькач10.10.2021 07:53
-
Золушка25128.06.2020 20:53
-
Сонечка215503.04.2021 18:01
-
valera12200401.02.2022 06:24
-
julyyushchenko03.03.2022 21:37
-
kira31515.08.2022 22:38
-
алеся67823.01.2022 13:07
-
olga1985209.02.2022 21:39