khó qua

ko phải như vậy mik nói đến 100 mà

Theo tớ,x=108.

Để chữ số của dãy số bằng 2x

\(\Rightarrow\)Số chữ số gấp 2 lần các số hạng.

Từ 1 đến 9 phải bù : (9 - 1) + 1 = 9 chữ số.

9 chữ số cần bù này sẽ lấy vào 9 chữ số của số có 3 chữ số.

\(\Rightarrow\)x = 99 + 9 = 108

Vậy số cần tìm là 108 .

Chúc bạn học tốt và k đúng cho mình.

Trl

-Bạn kia  làm đúng r nhé !~ :>

Học tốt 

nhé bạn ~

program bai1;

uses crt;

var i,j,d:integer;

a:array[1..100]of real;

t,k:real;

begin

  clrscr;

  i:=1;

  while 1/i>0.0321 do

  begin

    a[i]:=1/i;

    inc(i);

    d:=i;

  end;

  writeln('mang tren co ',d,' so hang');

  i:=1;

  while t+a[i]<=3 do

  begin

    t:=t+a[i];

    inc(i);

  end;

  writeln('so can tim la: ',a[i+1]:5:4);

  writeln(a[i+1]:5:4,' la so hang thu ',i+1);

  write('nhap k:');readln(k);

  for i:=1 to d do

  if (k>a[i])and(k<a[i-1]) then writeln(k:5:4,' nam giua ',a[i]:5:4,' va ',a[i-1]:5:4);

  readln;

end.

program bai1;

uses crt;

var i,j,d:integer;

a:array[1..100]of real;

t,k:real;

begin

  clrscr;

  i:=1;

  while 1/i>0.0321 do

  begin

    a[i]:=1/i;

    inc(i);

    d:=i;

  end;

  writeln('mang tren co ',d,' so hang');

  i:=1;

  while t+a[i]<=3 do

  begin

    t:=t+a[i];

    inc(i);

  end;

  writeln('so can tim la: ',a[i+1]:5:4);

  writeln(a[i+1]:5:4,' la so hang thu ',i+1);

  write('nhap k:');readln(k);

  for i:=1 to d do

  if (k>a[i])and(k<a[i-1]) then writeln(k:5:4,' nam giua ',a[i]:5:4,' va ',a[i-1]:5:4);

  readln;

end.

x = 111

111

111