THPT Thạch Thất - Hà Nội

_ Welcome To Forum My School Thạch Thất _


    Tính Tổng Nghịch Đảo

    Share
    avatar
    paxcan_7293
    Thành Viên Mới
    Thành Viên Mới

    Tổng số bài gửi : 9
    Điểm : 20
    Danh Tiếng : 0
    Join date : 16/10/2010
    Age : 24
    Đến từ : Thạch Thất Hà Nội

    Tính Tổng Nghịch Đảo

    Bài gửi  paxcan_7293 on Sun Oct 17, 2010 11:11 am

    Admin [You must be registered and logged in to see this link.] or [You must be registered and logged in to see this link.]
    Phùn Nam Can Y!m: xdatai_codon




    program tong_nghich_dao;
    var i,n,tong:integer;
    s:real;
    begin
    write('nhap co N=');
    Readln(N);
    WRITELN('--- *** ---');
    s:=0 ;
    FOR i:=1to N do
    s:=s+(1/i);
    writeln;
    writeln('tong nghich dao cua',n,'so nguyen dau tien=',s:0:2);
    writeln('---------------------CHUC CAC BAN HOC TAP TOT--------------------------------');
    writeln('an phim <enter> de ket thuc');
    readln
    end.




      Hôm nay: Wed Sep 20, 2017 7:41 pm