số thập phân là số có phần nguyên và phần thập phân

Giở sách lp 5 ra mà đọc đừng có hỏi

Số thập phân là hệ thống số có 10 đơn vị số căn bản là 0,1,2,3,4,5,6,7,8,9 thông dụng nhất trong đời sống hàng ngày. 
Ngoài ra còn có hệ nhị phân gồm 2 đơn vị số 0 và 1 hệ nầy dùng trong máy vi tính.

ko nnnnnnnnnnnnnnnnnn

:V :V :V

ví dụ 30:67 thì phép tính này có dư nên mình chỉ lấy 2 chữ số ở phần thập phân,bạn gõ ở máy tính nó sẽ ra 0,447761194 thì ta bỏ các số 7761194 ra ta được 0,44,thì đó nha

+Nếu 1 phân số tối giản với mẫu dương mà mẫu không có ước nguyên tố khác 2 và 5 thì phân số đó viết dưới dạng số thập phân hữu hạn.

+ Nếu 1 phân số tối giản với mẫu dương mà mẫu có ước nguyên tố khác 2 và 5 thì phân số đó viết dưới dạng số thập phân vô hạn tuần hoàn.

Nếu 1 phân số tối giản với mẫu dương mà mẫu không có ước nguyên tố khác 2 và 5 thì phân số đó viết dưới dạng số thập phân hữu hạn.

+ Nếu 1 phân số tối giản với mẫu dương mà mẫu có ước nguyên tố khác 2 và 5 thì phân số đó viết dưới dạng số thập phân vô hạn tuần hoàn.

số thập phân vô hạn tuần hoàn

có giá trị 0,04

Có giá trị là 0,04

Có giá trị là 0,04

Số thập phân vô hạn tuần hoàn đơn là gì ?

Một số thập phân vô hạn tuần hoàn là biểu diễn thập phân của một số có phần thập phân lặp lại (lặp lại giá trị của nó ở các khoảng đều đặn) và phần lặp lại vô hạn không phải là số không. Có thể chứng minh được rằng một số là hữu tỉ khi và chỉ khi phần biểu diễn thập phân của nó lặp lại theo chu kỳ hoặc là hữu hạn.

Số thập phân vô hạn tuần hoàn tạp là gì ?

Một số thập phân vô hạn tuần hoàn là biểu diễn thập phân của một số có phần thập phân lặp lại và phần lặp lại vô hạn không phải là số không. Có thể chứng minh được rằng một số là hữu tỉ khi và chỉ khi phần biểu diễn thập phân của nó lặp lại theo chu kỳ hoặc là hữu hạn.

Viết bằng pascal dc k

Var k,i,t:longint;
Function kt(n:longint):boolean;
Var s,x:string;
    d,m,j:longint;
Begin
s:=''
x:=''
j:=0;
d:=0;
 While n<>0 do
  Begin
   d:=n mod 2;
   n:=n div 2;
   Str(d,s);
   x:=x+s;
   j:=length(x)
  end;
s:=x;
For m:=1 to j do
 x[m]:=x[j-m+1];
If s=x then Exit(True) else Exit(False);
end;
Begin
{$ifndef online_JUDGE}
Assign(input,'standard.inp');
 Reset(input);
Assign(output,'standard.out');
 Rewrite(output);
{$endif}
Read(k);
For i:=1 to k+1 do
 Begin
  If kt(i-1) then inc(t);
 end;
Write(t);
end.