777. Запишите десятичные дроби в виде обыкновенных. Выполите действия:
) 6
1, 75 : 9 - 2,25
8
11
1 віль) - а.а - 1
5
1
2) 3 - 1
+ 0,248
2
6​

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.

Поставь лайк и отметить как лучшее решение

а) |7х|=24,5 (вычеслить)

7×|х|= 24,5 (разделяем обе стороны)

|х|=3,5 (рассмотрим все возможные случаи)

х=3,5 х=–3,5 (уравнения имеет 2 решения)

Х1=3,5 Х2=–3,5

б) |5х+2,1|=0,2 (рассмотреть все возможные случаи)

5х+2,1=0,2

5х+2,1=–0,2 (решить уравнения)

х=–0,38

х=–0,46 (уравнения имеет 2 решения)

Х1=–0,38 Х2=–0,46

с) |9х+27|-4=0,5 (перенести константу в правую часть уравнения)

|9х+27|=0,5+4 (вычислить)

|9х+27|=4,5 (рассмотреть все возможные случаи)

9х+27=4,5

9х+27=–4,5 (решить уравнения)

х=–2,5

х=–3,5 (уравнения имеет 2 решения)

Х1=–3,5 Х2=–2,5

Поставь лайк и отметить как лучшее решение