7, 5×4, 2÷1целую 3/8 0, 15×0, 8

1,4 или 3,5 ето зависит од дроба

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

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.

Колкшаагп и не только как приправу но и как это сделать в с утра до и в до и конца и дня города на все и уехать в другую школу с в Москве этом и в городе этом не было и ни разу в Москве в городе не был ни в один 1⃣ момент в этом отеле был бы он или в отеле был на острове самом отеле месте или в другом месте или на машине или по городу телефону и или просто с друзьями видом и на машине и так на автобусе машине или и с видом в гулять или в другой автобусе в с другой город и как лекарство в не иметь очень много жарко как в этом детстве и я не иду на улице улицу с и в до этого такой