viết chương trình tính tổng nhập n từ bàn phím : 1 + 1/2 +1/3 +…1/n

Bởi

viết chương trình tính tổng nhập n từ bàn phím : 1 + 1/2 +1/3 +…1/n

0 bình luận về “viết chương trình tính tổng nhập n từ bàn phím : 1 + 1/2 +1/3 +…1/n”

  1. program T;

    uses crt;

    var n,i: integer;

          T: real;

    Begin

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

             for i:=1 to n do T:=T+1/i;

             write(‘T = ‘,T);

             readln

    End.

    Bình luận

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