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.
ответ:Запишем уравнение окружности в каноническом виде, для этого выделим полные квадраты по х и у: x²+y²+4x-10y-20=0 ; (x²+4x)+(y²-10y)=20 ; (x²+4x+4)+(y²-10y+25)=20+4+25 ; (x+2)²+(y-5)²=7²-окружность радиуса 7 с центром в точке
(-2, 5). При повороте окружности на 180 градусов по часовой стрелке центр окружности переместится в точку, симметричную точке (-2,5) относительно начала координат, т. е. в точку (2,-5), а радиус не изменится. Поэтому уравнение станет:
(x-2)²+(y+5)²=7².
Пошаговое объяснение:
1)10÷2=5(см)-одна сторона квадрата
2)5×5=25(см)-S
3)5×2+5×2=20(см)-P
ответ:25см -S,20 см -S.
Желаю вам успехов и удачи.