: Hãy viết chương trinh thể hiện thuật toán sau:
Bước 1: Nhập vào n
Bước 2: A<-0; i<-0;
Bước 3: i<-i+1
Bước 4: Nếu i<=n thi A <- A+1/i*(i+2) và quay lại bước 3,
Bước 5: Thông báo A và kết thúc
: Hãy viết chương trinh thể hiện thuật toán sau:
Bước 1: Nhập vào n
Bước 2: A<-0; i<-0;
Bước 3: i<-i+1
Bước 4: Nếu i<=n thi A <- A+1/i*(i+2) và quay lại bước 3,
Bước 5: Thông báo A và kết thúc
program bt;
uses crt;
var i,n:integer;
a:real;
begin
clrscr;
write(‘nhap so n= ‘); readln(n);
a:=0; i:=0;
while i <=n do
begin a:=a+1/i*(i+2);
i:=i+1 ;
end;
write(‘a=’,a);
readln;
end.
đây bạn