Tài liệu

Các liên kết

Quản trị

  • (-----Admin-----)

Thống kê

  • truy cập   (chi tiết)
    trong hôm nay
  • lượt xem
    trong hôm nay
  • thành viên

    • Các ý kiến mới nhất

  • Khi in file modul bồi dưỡng thường xuyên có rất...
  • mình bị xóa hết trên màn hình dextop liệu có...
  • mình cũng ko lưu được, mà crack là làm sao...
  • thay a! sao toi tai ve ma may khong doc...
  • TVM xin chúc chủ nhà luôn mạnh khỏe và nhiều...
  • ko save được . nhấp save ko hiện nơi cần...
  • giá cực tốt đây ạ...
  • Chào bạn. Tặng bạn hình ảnh quê hương. Rất vui...
  • Rất mong cùng các bạn giao lưu học hỏi thêm....
  • Mong được giao lưu http://violet.vn/tinhbotnghe/...
  • Việt Phương xin gia nhập trang chủ nhà, sớm mời...
  • Nguyễn Thị Thùy Nhân phải crack rồi mới dùng...
  • Vì sao mà khi mình tìm được dữ liệu mà...
  • CHÀO ĐỒNG NGHIỆP! TVM XIN GIA NHẬP, WEB PHONG PHÚ...

    • Trực tuyến BlogtinhoC

    2 khách và 0 thành viên

    Sắp xếp dữ liệu

  • Mới nhất
  • Tải nhiều nhất

    • KHÁCH GHÉ THĂM

    Gốc > Lập trình > Pascal >

    lap trinh pascal.giup voj

    nhap vao mot so nguyen n.in ra uoc so nguyen to cua n

     

    Nhắn tin cho tác giả
    Võ Hòng Phong @ 10:33 06/10/2011
    Số lượt xem: 3960
    Số lượt thích: 0 người
    No_avatar

    giup minh voi nha

     

    Võ Hòng Phong @ 10h:34p 06/10/11
    Avatar
    bạn tham khảo xem nhé: 
    var j,m,temp:integer;
    function ngto(n:integer):boolean;
    var i,d:integer;
    begin
    d:=0;
    for i:=1 to n do
    if n mod i = 0 then
    d:=d+1;
    if d = 2 then
    ngto:=true
    else ngto:=false;
    end;
    Begin
    write('nhap so nguyen n = '); readln(m);
    write('cac uoc nguyen to cua n la: ');
    for j:=round(m)  downto 1  do
    begin
    if m mod j = 0 then temp:= (m div j) else temp:=0;
    if (ngto(temp)=true) then write(temp,' ;  ');
    end;
    readln
    end.

    Nguyễn Việt Bắc @ 15h:09p 07/10/11
    Avatar
    VM CHÀO CHỦ NHÀ. MONG ĐƯỢC CÙNG GIAO LƯU. NHÂN 20/11 CHÚC THẦY  VÀ GĐ DỒI DÀO SỨC KHOẺ, HẠNH PHÚC, THÀNH ĐẠT
    Nguyễn Văn Huynh @ 15h:18p 06/11/11
    Avatar
    nhan-ngay-20-thang-11-1289359142.jpg

    Chào mừng  ngày nhà giáo Việt Nam. Chúc các thầy cô thật nhiều sức khỏe, niềm vui và hạnh phúc. Kính tặng các thấy cô những bông hoa tươi thắm nhất!.

    Chu Văn Quý @ 23h:04p 13/11/11
    Avatar
    TVM xin gia nhập. Mời chủ nhà ghé thăm và giao lưu.
    Trần Châu Phong @ 19h:07p 14/11/11
    Avatar
     

    TT xin chào thầy Việt Bắc ! TT xin được kết thành viên trên trang của thầy ! TT chúc thầy buổi chiều tối cuối tuần vui vẻ và nhẹ nhàng !

    Nguyễn Thị Thanh Thuỷ @ 16h:03p 26/11/11
    Avatar

    :8b4yc:n7vrew

    Thân ái chào chủ nhà, hân hạnh làm quen trong đại gia đình Violet.Chúc chủ nhà sức khỏe,hạnh phúc và thành đạt. 

    Lê Thị Tứ @ 20h:12p 03/12/11
    Avatar

    TVM xin chào. Rất vui được giao lưu. Mời ghé thăm

    banner_blog6_400

    Võ Nhật Trường @ 22h:22p 20/12/11
    Avatar

    9aaaaaaaaaaaaa1

     

    Nguyễn Đình Tuân @ 21h:25p 29/02/12
     
    Gửi ý kiến