a) em hãy viết và gõ chương trình tính tổng sau bằng cách sử dụng lệnh While…do trong ngôn ngữ pascal với n là số nguyên dương được nhập vào bàn phí

a) em hãy viết và gõ chương trình tính tổng sau bằng cách sử dụng lệnh While…do trong ngôn ngữ pascal với n là số nguyên dương được nhập vào bàn phím:
S=1/1+1/2+1/3+…+1/n

0 bình luận về “a) em hãy viết và gõ chương trình tính tổng sau bằng cách sử dụng lệnh While…do trong ngôn ngữ pascal với n là số nguyên dương được nhập vào bàn phí”

  1. var s: real;

         n, i: word;

    begin

      write(‘n = ‘); readln(n);

      i:=0;

      while i<=n do

           begin

                  s:=s+1/i;

                  inc(i);

           end;

       write(s);

       readln

    end.

    Bình luận
  2. program tinh_tong;

    uses crt;

    var n,i,s:integer;

    begin

    write(‘Nhap n: ‘);readln(n);

    i:=1;

    while i<=n do begin

    s:=s+1/i;

    i:=i+1;

    end;

    writeln(‘Tong=’,s);

    readln

    end.

    Bình luận

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