Ввести целое число и определить,верно ли,что в его записи есть две одинаковые цифры,стоящие рядом. пример: 1234 1224 нет да кумир 7 класс
130
228
Ответы на вопрос:
var b,i,z,k: integer;
a: array[1..10000] of integer;
begin
read(b);
z: =0;
k: =0;
while b> 0 do
begin
z: =z+1;
a[z]: = b mod 10;
b: =b div 10;
end;
for i: =2 to z-1 do
if a[i]=a[i-1] or a[i]=a[i+1] then
k: =1;
if k=1 then writeln (‘да’)
else writeln (‘нет’);
end.
второй способ:
var a,b,c: integer;
begin
read(a);
k: =0;
c: =10; // это должно быть обязательно число, но не цифра
while a > 0 do
begin
b: =a mod 10;
a: =a div 10;
if b=c then k: =1;
c: =b;
end;
if k=1 then writeln (‘да’)
else (‘нет’);
end.
Популярно: Математика
-
hfb123.10.2021 13:12
-
рита42929.03.2023 08:41
-
rayhan888801.08.2021 17:20
-
ForaN77703.01.2021 02:54
-
electreheart30.08.2021 00:36
-
Alecsei278Z15.06.2022 02:40
-
Аня2018122.11.2021 18:39
-
ekarerinazak0517.05.2021 08:21
-
аджирешка02.09.2020 05:39
-
Алинкамалинка342231.08.2021 06:19