Cấu trúc rẽ nhánh và lặp

Gia Thịnh

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 ạ.


Các câu hỏi tương tự
Nguyễn Nhật Minh
Xem chi tiết
Hoshimiya Ichigo
Xem chi tiết
Chu Khả Doanh
Xem chi tiết
Le Quynh
Xem chi tiết
Trang Đỗ
Xem chi tiết
Đtth
Xem chi tiết
Đinh Như Quỳnh
Xem chi tiết
Trần Hoàng Yến
Xem chi tiết
Nguyễn Đức
Xem chi tiết