[r]
(1)sách giáo khoa lớp 11 trang 51
Bài 5: a,
For n:=1 to 50 y:=y+n/(n+1); b,
a:=1; b:=1; e:=1; n:=1;
while not(a<0.000002) begin
for i=1 to n b:=b*i; a:=1/b; e:=e+a; n:=n+1; end; Bài 6,
for cho:=1 to 19 begin
ga:=36-cho;
if ga+2*cho=50 then writeln(‘số gà là=’,ga,’ Số *** =’,cho); end;
Bài 7, Repeat
Writeln(‘Nhập tuổi cha 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)
Begin i:=i+1; a:=a+i; b:=b+i; End;
Writeln(‘Sau ’,i,’ năm 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 đc’,b,’ đồng’);
bài sách giáo khoa lớp 11 trang 79
: Bài 5:For i:=3 to n d:=a[2]-a[1]; begin
if a [i]-a [i-1]<>d then begin
kt:=false;
(2)end; end;
if kt then writeln(‘Là cấp số cộng ’); Readln
end Bài 6: a,
for i:=1 to n begin
if a [i] mod 2=0 then d:=d+1 else d1:=d1+1;
end;
Writeln(‘Số số lẻ là=’,d2); Writeln(‘Số số chẵn là=’d); b,
for i:=1 to n begin
for j:=1 to trunc(sqrt(a[i])) begin
if a[i] mod j=0 then begin
kt:=false; break; end; end;
if kt then d:=d+1; end;
Writeln(‘Số số nguyên tố dãy ’d); Bai
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) Case a[i] of
‘0’ ’9’: d:=d+1;