sách giáo khoa lớp 11 trang 51 Bài 5: a, For n:=1 to 50 do y:=y+n/(n+1); b, a:=1; b:=1; e:=1; n:=1; while not(a<0.000002) do begin for i=1 to n do b:=b*i; a:=1/b; e:=e+a; n:=n+1; end; Bài 6, for cho:=1 to 19 do begin ga:=36-cho; if ga+2*cho=50 then writeln(‘số gà là=’,ga,’ Số *** là =’,cho); end; Bài 7, Repeat Writeln(‘Nhập tuổi cha và con’); Readln(a,b); Until (a-b>=25) and(a div b>=2) and(a mod b<>0); While Not(a div b=2) and (a mod b=0) do Begin i:=i+1; a:=a+i; b:=b+i; End; Writeln(‘Sau ’,i,’ năm nữa thì tuổi cha gấp đôi tuổi con’); Bài 8: a:=0; i:=0; While not(A>=B)do Begin a:=a+3*s/100; s:=s+a; i:=i+1; End; Writeln(‘Sau ’,i,’ tháng thì sẽ đc’,b,’ đồng’); bài 5 sách giáo khoa lớp 11 trang 79: Bài 5: For i:=3 to n do d:=a[2]-a[1]; begin if a [i]-a [i-1]<>d then begin kt:=false; writeln(‘Không là cấp số cộng’); break; end; end; if kt then writeln(‘Là cấp số cộng ’); Readln end. Bài 6: a, for i:=1 to n do begin if a [i] mod 2=0 then d:=d+1 else d1:=d1+1; end; Writeln(‘Số các số lẻ là=’,d2); Writeln(‘Số các số chẵn là=’d); b, for i:=1 to n do begin for j:=1 to trunc(sqrt(a[i])) do begin if a[i] mod j=0 then begin kt:=false; break; end; end; if kt then d:=d+1; end; Writeln(‘Số các số nguyên tố trong dãy là ’d); Bai 7 Uses crt; Var x:integer; kq:longint; Function F(n:integer):Longint; begin if n<=2 then F:=1 Else F:=F(n-2)+F(n-1); end; Begin Clrscr; Write(#7,'Nhap so n= ');Readln(x); Write('So Fibonaxi thu ',x,' la ',F(x)); readln; End. Bài 10; For i:=1 to length(s) do Case a[i] of ‘0’ ’9’: d:=d+1; Writeln(‘Có ’,d,’ chữ số trong xâu vừa nhập’); . sách giáo khoa lớp 11 trang 51 Bài 5: a, For n:=1 to 50 do y:=y+n/(n+1); b, a:=1; b:=1; e:=1; n:=1;. End; Writeln(‘Sau ’,i,’ tháng thì sẽ đc’,b,’ đồng’); bài 5 sách giáo khoa lớp 11 trang 79: Bài 5: For i:=3 to n do d:=a[2]-a[1]; begin if a [i]-a [i-1]<>d