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/

Bởi

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

0 bình luận về “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/”

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

    Bình luận

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

    Bình luận

Viết một bình luận