program A00;

uses crt;

var S :Real;

a :Real;

N: Integer;

begin

writeln('nhap a');

readln(a);

S:=(1/a);

N:=1;

while not (1/(a+N)>100) do

begin

N:= N+1;

S:= S+1/(a+N);

end;

writeln('S là: ', S:8:4);

readln;

end.

Giúp mình tìm lỗi sai không xuất được S ạ.

Trộn v1 ml dd hcl 0.1M và h2so4 0.05M với v2 dd naoh 0.1M với ba(oh)2 0.1M thu đc dd A có thể tích 1 lít ph= 12 tính v1 v2