Выдели первое неполное делимое. Запиши, сколько цифр должно быть в частном. 2144:32 1457:47 396:18 748:34

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.

ответ:

пусть о - центр вписанной окружности, n - точка касания окр со стороной ac, k - точка касания окр со стороной bc, m - точка касания окружности со стороной ab, тогда mb = x, am =2x (2/1 от a), значит ab =3x. по утверждению со стр.167 учебника - отрезки касательных к окружности , проведенные из одной точки равны и составляют ровные углы с прямой проходящей через эту точку и центр окружности - am =an, an =2x и bk =x. аналог. ck =cn =15-2x.(т.к. ac=15, a an =2x).периметр будет ab+bc+ac=3x+(x+15-2x)+(2x+15-2x)=42.решив уравнение имеем x=6. 3н. ab=18 см,ac=15 см, bc=9см

пошаговое объяснение: