Cho dãy các phân số 1/1;2/1;1;2;3/1;2/2;1/3;4/1;3/2;2/3;1/4;....
a.Nếu quy luật viết của dãy và viết tiếp 5 phân số tiếp theo của dãy.
b.Phân số đứng ở vị trí thứ mấy trong dãy?
Cho các phân số : 1/2 ; 2/3 ; 1 ; 5/4 ; 3/2 .
a) Nhận xét về cách viết dãy phân số đó .
b) Viết tiếp ba phân số vào dãy số đó .
a) dãy phân số đó đc sắp xếp theo thứ tự từ bé đến lớn
Cho các dãy phân số \(\frac{1}{2},\frac{1}{6},\frac{1}{12},\frac{1}{20}........\) a, Nêu quy luật viết dãy phân số trên b, Tính nhanh tổng 10 số hạng đầu tiên của dãy phân số
Qui luật là thế này nha em : 1/1x2 ;1/2*3;1/3*4 ,....
Cái tính tổng thì tách 1/2=1-1/2 ;1/6=1/2-1/3;1/12=1/3-1/4 tương tự đi cộng lại là ra
Quy luật của dãy là:1/2,1/6,1/12,1/20=1/1x2,1/2x3,1/3x4,1/4x5
Cho các phân số:1/2 , 3/4 , 1, 5/4, 3/2.
a)Nhận xét về cách viết dãy phân số đó.
b)Viết tiếp 3 phân số vào dãy phân số đó
câu 1 : nhập vào 1 dãy số nguyên có M phần tử . đưa ra màn hình các phân tử chia hết cho 3
câu 2 : nhập vào 1 dãy số nguyên có M phần tử . đưa ra màn hình các phân tử có chỉ số lẻ và phân tử chẵn
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i] mod 3=0 then write(a[i]:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
writeln('Cac phan tu chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
writeln('Cac phan tu co chi so le la: ');
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
readln;
end.
Viết chương trình nhập vào 1 dãy số nguyên gồm n phân tử sắp xếp lại dãy (Đây là dãy tăng dần) sao cho các số chẵn tăng dần ở đầu dãy,các số lẻ giàm dần cuối dãy
Program Tin_hoc;
Uses crt;
Var i,tam,n,chan,le,j:integer;
a,daychan,dayle:array[1..10000] of integer;
Begin
clrscr;
Write('Nhap n: ');readln(n);
chan:=0;le:=0;
Writeln('Nhap ',n,' phan tu cua mang:');
For i:= 1 to n do
Begin
write('A[',i,'] = ');
Readln(a[i]);
If a[i] mod 2 = 0 then
Begin
inc(chan);
daychan[chan]:=a[i];
end
else
Begin
inc(le);
dayle[le]:=a[i];
End;
End;
For i:= 1 to chan do
for j:= i to chan do If daychan[i]>daychan[j] then
Begin
tam:=daychan[i];
daychan[i]:=daychan[j];
daychan[j]:=tam;
End;
For i:= 1 to le do
for j:= i to le do If dayle[i]<dayle[j] then
Begin
tam:=dayle[i];
dayle[i]:=dayle[j];
dayle[j]:=tam
End;
Writeln('Day sau khi sap xep:');
For i:= 1 to chan do write(daychan[i],' ');
For i:= 1 to le do write(dayle[i],' ');
Readln;
End.
1. Cho dãy số sau : 1,3,6,10,15,...
a. Tìm số thứ 100 của dãy
b. Tìm số thứ 2017 của dãy
2. a. Có bao nhiêu phân số có tổng của tử số và mẫu số bằng 10 mà các phân số đó đều nhỏ hơn 1
b. có bao nhiêu phân số có tổng của tử số và mẫu số bằng 2017 mà các phân số đó đều nhỏ hơn 1
3. Không quy đồng hãy so sánh các phân số sau
a. 2013/2017 và 2014/2016
b. 120/241 và 51/100
c. 232323/464646 và 123123/369369
4. Cho dãy số : 2,6,12,20,30,42,...
a. Số thứ 2017 của dãy là số nào
b. Tính tổng của dãy số đó
1. Cho một dãy số gồm N phân tử, in ra màn hình các số nguyên tố có trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,j,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
Cho các phân số sau : 1/2, 3/4, 1, 5/4, 3/2
a. Nhận xét về cách viết dãy số đó.
b. Viết tiếp 3 phân số vào dãy số đó.
1) phân số sau lớn hơn phân số đứng trước nó 1/4
b) 7/4, 2, 9/4
Chúc bạn học tốt
HYC-30/1/2022
Cho dãy các phân số : 1/3.7 ; 1/7.11 ; 1/11.15 ; ... Tính tổng 60 số hạng đầu tiên của dãy số
Hãy viết các phân số còn thiếu trong dãy các phân số sau đây
1/2 , 1/6, 1/12 , 1/20 ,.... 1/90
Làm nhanh mình k cho
Ở đây mẫu số cộng 4 rồi dần dần thêm 2 là +6 , +8 , ...
Từ phân số 1/12 đến 1/20 là +8.
Vậy những phận số còn thiếu là 1/30 , 1/42 , 1/56 , 1/72 .
Nhầm từ phân là phận.