... thể biến đổi đề bài của bài toán đi như: tính số phibonaci thứ n hoặc nhập vào 1số kiểm tra xem số đó có phải là số phibonaci hay không…Các bài đó làm tương tự. Bài 19 : Nhập số nguyên dương ... duong e<0. 01: '); readln(e); until (e>0) and (e<0. 01) ; s5: =1; i: =1; while 1/ (2*i +1) >e do begin if i mod 2=0 then s5:=s5 +1/ (2*i +1) else s5:=s5 -1/ (2*i +1) ; i:=i +1; end; writeln('ket ... qua la: ',s4:0:4); readlnEND. Bài 23:Nhập số thực dương e(e<0. 01) rồi tính tổngS5= 1- 1/ 3 +1/ 5 -1/ 7+…+( -1) n/(2*n +1) (dừng khi 1/ (2*n +1) <e)Lời giải:uses crt;var s5,e:real;i:integer;BEGIN...
... : CONSTBacmax = 50;TYPETrang 27B à i 2 3 : Tạo bảng số dạng sau:0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Program BANG_SO; Uses crt;Var i,j,n:integer; BeginClrscr;Writeln(' ... st [1] :=upcase(st [1] );For i: =1 to length(St) doIf st[i]=' ' then st[i +1] :=upcase(st[i +1] ); Writeln('Ho ten sau khi doi lan 1 la: ',st);For i: =1 to ... <> 0 then k:=k +1; For i: =1 to k -1 doFor j :=i +1 to k doIf a[i]>a[j] thenBeginEnd;t:=a[i]; a[i]:=a[j]; a[j]:=t;For i:=k +1 to n -1 doFor j :=i +1 to n doIf a[i]<a[j]...
... duong e<0. 01: '); readln(e); until (e>0) and (e<0. 01) ; s5: =1; i: =1; while 1/ (2*i +1) >e do begin if i mod 2=0 then s5:=s5 +1/ (2*i +1) else s5:=s5 -1/ (2*i +1) ; i:=i +1; end; writeln('ket ... la: ',s4:0:4); readln END. Bài 23: Nhập số thực dương e(e<0. 01) rồi tính tổng S5= 1- 1/ 3 +1/ 5 -1/ 7+…+( -1) n/(2*n +1) (dừng khi 1/ (2*n +1) <e) Lời giải: uses crt; var s5,e:real;i:integer; ... END. Bài 25: Cho các số tự nhiên n (khai bảo longint), và cho biết: n có bao nhiêu chữ số, tổng các chữ số của n và số đảo ngược của n. VD: số 12 3 có 3 chữ số, tổng các chữ số bằng 6, số đảo...
... thuc duong e<0. 01: '); readln(e); until (e>0) and (e<0. 01) ; s5: =1; i: =1; while 1/ (2*i +1) >e do begin if i mod 2=0 then s5:=s5 +1/ (2*i +1) else s5:=s5 -1/ (2*i +1) ; Bài 25:Cho các ... ',s4:0:4); readlnEND. Bài 23:Nh p s th c d ng e(e<0. 01) r i tính t ngậ ố ự ươ ồ ổS5= 1- 1/ 3 +1/ 5 -1/ 7+…+( -1) n/(2*n +1) (d ng khi 1/ (2*n +1) <e)ừL i gi i:ờ ảuses crt;var s5,e:real;i:integer;BEGIN ... write('Nhap n: ');readln(n); s1:=0; for i: =1 to 2*n +1 do if i mod 2<>0 then s1:=s1+i; writeln('Tong S1 la: ',s1); readlnEND. Bài 20:Tính S2 =1 3+23+33+…+n3 trong đó...
... F2 = F 1 (1) Với: F 1 = p 1 S =10 .(H+h).L .S = 10 .4D2(H+h).L F2 = p2S' =10 .H.L.(4D2 - 4d2) P = 10 ..V = 10 ..h 4D2 1, 5 đ Thế tất cả vào (1) và ... Nhiệt lượng kế : Q 1 = m 1 .C 1 .(t - t 1 ) Nước : Q2= m2.C2.( t - t 1 ) Khi cân bằng nhiệt : Q 1 + Q2= Q3+ Q4 m 1 .C 1 .(t - t 1 ) + m2.C2.( t - t 1 ) = m3.C3.(t2- ... Nhiệt lượng kế : Q 1 = m 1 .C 1 .(t - t 1 ) Nước : Q2= m2.C2.( t - t 1 ) Khi cân bằng nhiệt : Q 1 + Q2= Q3+ Q4 m 1 .C 1 .(t - t 1 ) + m2.C2.( t - t 1 ) = m3.C3.(t2-...
... vật . Câu 65: (1, 0 điểm): Hai ô tô chuyển động cùng chiều. Vận tốc của hai xe như nhau; khi đi trên đường bằng là v 1 , còn khi đi qua cầu là v2 < v 1 . 1SỐBÀITẬPCƠBẢN CẦN THIẾT CHƯƠNG ... dụng lên 1 vật cùng phương cùng hướng ) - F = F2 - F 1 (F 1 , F2 Hai lực cùng tác dụng lên 1 vật cùng phương ,ngược chiềuF 1 < F2 ) - F = F 1 - F2 ( F 1 , F2 Hai ... Cõu 1. (2,5 im) Cho h thng trng thỏi cõn bng ng yờn nh hỡnh v 1 C A m c (t 1 - t'2) = m 1 c (t'2 - t2) (0,5) Suy ra: 2 22 1 2' 25 20 1 . 1. ( )'...
... thẳngAA 1 , B 1 C 1 , CD không thể đồng thời nhỏ hơn a2. Bài toán 11 : Cho hình hộp chữ nhật ABCDA 1 B 1 C 1 D 1 có AB=a, AD=2a, AA 1 =a 2. Trên cạnhAD lấy điểm M, gọi K là trung điểm B 1 M. ... ABCDA 1 B 1 C 1 D 1 cạnh đáy bằng 1 và chiềucao bằng x. Tìm x để góc tạo bởi đường thẳng B 1 D và mặt phẳng (B 1 D 1 C) đạt giá trịlớn nhất. Bài toán 21: Cho hình lăng trụ tam giác ABCA 1 B 1 C 1 ... B, B 1 đến mặt phẳng (ACD 1 ). Bài toán 19 : Cho hình lăng trụ tứ giác đều ABCDA 1 B 1 C 1 D 1 cạnh đáy dài gấp đôichiều cao. Điểm M trên cạnh AB, tìm giá trị lớn nhất của góc A 1 MC 1 .Bài...