Tài liệu

BLOG NÊN XEM

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
  • Trực tuyến BlogtinhoC

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

    Sắp xếp dữ liệu

    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: 1917
    Số lượt thích: 0 người
    No_avatar

    giup minh voi nha

     

    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.

    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
    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!.

    Avatar
    TVM xin gia nhập. Mời chủ nhà ghé thăm và giao lưu.
    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 !

    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. 

    Avatar

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

    banner_blog6_400

    Avatar

    9aaaaaaaaaaaaa1

     

     
    Gửi ý kiến