[Pascal] Viết chương trình kiểm tra năm nhận

Thảo luận trong 'Pascal' bắt đầu bởi Trần Văn Cường, 19/6/16.

  1. Trần Văn Cường

    Trần Văn Cường I love CNTT Thành viên BQT Thành viên BQT

    Tham gia ngày:
    8/11/15
    Bài viết:
    3,693
    Đã được thích:
    43
    Điểm thành tích:
    48
    Giới tính:
    Nam
    Nghề nghiệp:
    Sinh Viên
    Nơi ở:
    Quảng Ninh thân yêu!
    Web:

    [Pascal] Viết chương trình kiểm tra năm nhận

    Ngôn ngữ lập trình: pascal

    CODE:
    Select All
    Program Nam_nhuan;
    Var
       
    nam:Word;
       
    nhuan:boolean;
    Begin
       Writeln
    ('NAM NHUAN HAY NAM THUONG');
       
    Writeln('------------------------');
       
    Write('-Nhap vao nam can kiem tra: ');
       
    Readln(nam);
       If 
    nam Mod 100 0 Then
           Nhuan
    :=(nam Mod 400)=0
       
    Else
           
    Nhuan:=(nam Mod 4)=0;
       
    Write('Nam: ',nam' la: ');
       If 
    nhuan Then
           Writeln
    ('nam nhuan')
       Else
           
    Writeln('nam thuong ( khong nhuan)');
       
    Writeln;
       
    Writeln('   Bam phim <Enter> de ket thuc');
       
    Readln
    End
    .
     

    Bình Luận Bằng Facebook

    data-href="https://cnttqn.com/threads/pascal-viet-chuong-trinh-kiem-tra-nam-nhan.2239.html"