Tin học Câu lệnh white do

[Vinh232003]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình tính:s=:1+1\2+1\3+...+1\N+....cho đến khi 1\N<0,01

 

[Bạc Liêu123]

Viết chương trình tính:s=:1+1\2+1\3+...+1\N+....cho đến khi 1\N<0,01

Code
S:=0; n:=1;
While n < 100 do
S:=S+1/n;
n:=n + 1;
Writeln(‘Tong S = ‘,S);

 

[Code11]

var
n:longint;
s:real;
begin
readln(n);
s:=1;n:=2;
while 1/n > 0.01 do begin
                    s:=s+1/n;
                    n:=n+1;
                    end;
write(s:6:2);
readln;
end.