Tính S=1+1/3+1/5+-.+1/15 viết bằng câu lệnh while-do

Bởi

Tính S=1+1/3+1/5+…..+1/15 viết bằng câu lệnh while-do

0 bình luận về “Tính S=1+1/3+1/5+-.+1/15 viết bằng câu lệnh while-do”

  2. program tinhtong;

    uses crt;

    var s:real;

           i:byte;

    begin

    clrscr;

    s:=0;   i:=1;

    while i<=15 do

     begin

      s:=s+1/i;

      i:=i+2;

     end;

    write(‘Tong la: ‘,s:2:2);

    readln

    end.

    Bình luận

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