seh ide lớp 4141 B4
Bài 5:
a,
For n:=1 to 50 do y:=y+n/(n+1);
b,
1;
1;
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(‘s6 ga la=’,ga,’ S6 *** la =’,cho);
end;
Bai 7,
Repeat
Writeln(‘Nhdap tuổi cha và con’);
ReadIn(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:=i4+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’);
:=0;
While not(A>=B)do
Begin
a:=a+3*s/100;
S;:=s+a;
i:=i4+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;
Trang 2end;
end;
if kt then writeln(‘La cap s6 céng ’);
ReadIn
end
Bai 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(sart(a[i])) do
begin
if ali] 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 al[i] of
`0 97;: d:=d+1;
Writeln('Có “,d,“ chữ số trong xâu vừa nhập”);