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.
15*(а+2)=6*(2а+7)
15а+30=12а+42
15а-12а--30+42
3а=12
а=12:3
а=4
ответ: 4
2)
12b-7*(b+4)=26-4b
12b-7b-28=26-4b
12b-7b+4b=28+26
9b=54
b=54:9
b=6
ответ:6
3)
5*(3с+2)=8*(9-2с)
15с+10=72-16с
15с+16с= -10+72
31с=62
с=62:31
с=2
ответ:2
4)
10k+2(7k-2)=5(4k+3)+3k
10k+14k-4=20k+15+3k
10k+14k-20k-3k=4+15
1k=19
k=19
ответ: 19