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

Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
THPT Thạch Thất - Hà Nội

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

Latest topics

» Ngày mai chàng hoàng tử ấy, không phải là anh...
Tính Tổng Nghịch Đảo I_icon_minitimeTue Dec 29, 2015 4:45 pm by mycomputer

» Người ta bận yêu, còn em bận cô đơn…
Tính Tổng Nghịch Đảo I_icon_minitimeFri Dec 18, 2015 5:04 pm by mycomputer

» Đông đến làm người ta cô đơn hơn phải không anh?
Tính Tổng Nghịch Đảo I_icon_minitimeWed Nov 18, 2015 4:31 pm by mycomputer

» Em muốn được ôm anh từ phía sau
Tính Tổng Nghịch Đảo I_icon_minitimeFri Nov 13, 2015 4:08 pm by mycomputer

» Hãy cho nhau một cơ hội để giãi bày!
Tính Tổng Nghịch Đảo I_icon_minitimeMon Nov 09, 2015 4:44 pm by mycomputer

» Hãy cho nhau một cơ hội để giãi bày!
Tính Tổng Nghịch Đảo I_icon_minitimeMon Nov 09, 2015 4:42 pm by mycomputer

» Đôi lúc em chỉ muốn mình thuộc về ai đó thôi...
Tính Tổng Nghịch Đảo I_icon_minitimeThu Nov 05, 2015 4:22 pm by mycomputer

» Trái đất này, ba phần tư là nước mắt...
Tính Tổng Nghịch Đảo I_icon_minitimeTue Oct 27, 2015 4:20 pm by mycomputer

» Để anh kể em nghe về những người phụ nữ anh yêu...
Tính Tổng Nghịch Đảo I_icon_minitimeThu Oct 22, 2015 4:23 pm by mycomputer

» Thương vội người đến sau...
Tính Tổng Nghịch Đảo I_icon_minitimeTue Oct 13, 2015 4:04 pm by mycomputer


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

    paxcan_7293
    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 : 31
    Đến từ : Thạch Thất Hà Nội

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

    Bài gửi  paxcan_7293 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: Thu Mar 28, 2024 7:34 pm