Bài 4:Tính tổng S=1+1/2+1/4+1/4+-+1/n cho đến khi 1/n

06/08/2021

By Sarah

Bài 4:Tính tổng S=1+1/2+1/4+1/4+….+1/n cho đến khi 1/n { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Bài 4:Tính tổng S=1+1/2+1/4+1/4+-+1/n cho đến khi 1/n

program BiBo212;
uses crt;
var n :integer; S,ep :real;
begin
        clrscr;
        n:=1;
        S:=0;
        write(‘Nhap so Ep(VD:0.0001): ‘);readln(ep);
        while 1/n >=ep do
                begin;

                        S:=S+1/n;
                        n:=n+1;
                        write(n:5);
                end;
        writeln(‘S la: ‘,S:2:6);
        write(‘n la: ‘,n);
        readln;
end.

P/S:Bạn chạy trên Turbo Pascal nhá chứ trên Pascal nó bị lỗi dữ liệu.