B1:Nhập n từ bàn phím;

B2:i:=1;s:=0;

B3:s:=s+1/i(i+2);i:=i+1;

B4:Nếu i<=n thì quay lại b3,ngược lại thông báo kết quả và kết thúc thuật toán.

dung lượng của USB thường >= 1G

đĩa CD phụ thuộc vào nội dung trong đĩa

CÁch sử dụng: Cắm vào trong máy và sử dụng thôi

program bai1;

var n:longint;

begin

write('N= ');readln(n);

if (n mod 2=0) then writeln(n,' la so chan')

else writeln(n,' la so le');

readln

end.

a) Chu vi hình tròn đó là:

( 8 x 2 ) x 3,14 = 50,24 ( cm )

b) Chu vi hình tròn đó là:

12 x 3,14 = 37,68 ( cm )

Đ/S: ............................

2367749

giở quyển sach giáo khoa tập 1 mà đọc

program bai1;

var n:longint;

begin

repeat

write('N= ');readln(n);

until (n>0) and (n<=5);

readln

end.

program bai1;

var n,i:longint;s:real;

begin

write('N= ');readln(n);

s:=0;

for i:=1 to n do

s:=s+1/(i*(i+2));

writeln('Tong la ',s);

readln

end.