Viết CT tính tổng S, với S = \(\dfrac{1}{2}+\dfrac{1}{4}+....+\dfrac{1}{n}\) (n ∈ N*) và S không vượt quá 0,785

Tìm và sửa lỗi trong ct pascal sau:

           var
              i: integer;
             diemToan, diemVan, diemAnh, diemTrungBinhToan, diemTrungBinhVan,                                     diemTrungBinhAnh: real;
        begin
             diemTrungBinhToan := 0;
             diemTrungBinhVan := 0;
             diemTrungBinhAnh := 0;
             for i := 1 to 100 do
          begin 
             writeln('Nhap diem cua hoc sinh thu ', i, ' : ');
             write('Diem Toan: ');
             readln(diemToan); 
            diemTrungBinhToan := diemTrungBinhToan + diemToan;
             write('Diem Van: ');
             readln(diemVan);
             diemTrungBinhVan := diemTrungBinhVan + diemVan;
             write('Diem Anh: ');
             readln(diemAnh); 
            diemTrungBinhAnh := diemTrungBinhAnh + diemAnh;
            end;
            diemTrungBinhToan := diemTrungBinhToan / 100;
            diemTrungBinhVan := diemTrungBinhVan / 100;
            diemTrungBinhAnh := diemTrungBinhAnh / 100;
            writeln('Diem trung binh mon Toan la: ', diemTrungBinhToan:0:2); 
            writeln('Diem trung binh mon Van la ', diemTrungBinhVan:0:2);
            writeln('Diem trung binh mon Anh la: ', diemTrungBinhAnh:0:2); 

          Readln; 

          End.

           Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ

          Tìm và sửa lỗi trong chương trình pascal sau: 

          var T, So, D: longint;
          begin
                T:= 0; 
                D:= 0;
                repeat
                write('Nhap so: ');
                readln(So);
                if T + So <= 15000 then 
          begin
                 T:= T + So;
                 D:= Dem + 1; 
          end;
                 until T >= 15000; 
                 writeln('Tong cac so la: ', Tong); 
                writeln('Tong so da nhap: ', Dem);
          readln;
          end.

Tìm và sửa lỗi trong chương trình pascal sau:

               Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;

      write('Tong = ', t);

             Readln;

             end.

Trên một bóng đèn có ghi 220V - 40W, mỗi ngày bật đèn 5 giờ. 
a) Tính điện năng tiêu thụ của bóng đèn trong 30 ngày. 
b) Nếu 1 kWh điện có giá 1800 đồng thì trong 30 ngày tiền điện phải trả là bao nhiêu?

Tổng các nghiệm của phương trình 5+3.|5−x|=14 là

Viết ct tính tổng của các số sao cho tổng này không lớn hơn 15000 hỏi tổng cộng bao nhiêu số