viết câu lệnh dưới dạng while-do
Uses S: real;
i : integer;
begin
clrscr;
S:=0;
For i:=1 to 100 do S:=S+1/i;
Write(S:10:3);
readln;
end.
giúp mình vs. mình đang cần gấp đúng vote cho 5 sao
viết câu lệnh dưới dạng while-do Uses S: real; i : integer; begin clrscr; S:=0; For i:=1 to 100 do S:=S+1/
By Arianna
Uses S: real;
i : integer;
begin
clrscr;
S:=0;
i:=1;
while i<=100 do
S:=S+1/i;
Write(S:10:3);
readln;
end.
program phuongt;
uses crt;
var s: real;
i: integer;
begin
clrscr;
s:=0; i:=1;
while i<=100 do
begin
s:=s+1/i;
i:=i+1;
end;
write(s:10:3);
readln
end.