-
- Menu
- Diễn đàn
Diễn đànLiên kết nhanh - Tìm kiếm diễn đàn
- Bài viết gần đây
- Thành viên
Thành viênLiên kết nhanh - Thành viên tiêu biểu
- Đang truy cập
- Hoạt động gần đây
- Trạng
thái
- Menu
DIỄN ĐÀN SINH VIÊN CNTT QUẢNG NINH! Diễn đàn sinh viên CNTT Quảng Ninh
Trang chủ Diễn đàn
Công nghệ phần mềm Lập trình ứng dụng Desktop
Pascal [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. Trần Văn
Cường I love CNTT Thành viên BQT Thành viên BQTTham gia ngày:8/11/15Bài viết:3,693Đã được thích:43Điểm thành tích:
48Giới tính:NamNghề nghiệp:Sinh ViênNơi ở:Quảng Ninh thân yêu!Web:https://www.facebook.com/DiendanCNTTQN/
#1 Trần Văn
Cường, 19/6/16 [Pascal] Viết chương trình kiểm tra năm nhận Ngôn ngữ lập trình: pascal 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"
Quan tâm nhiều Hướng dẫn Cài Đặt Tubo Pascal 7.0 Full bởi Nguyễn Thành Đạt It, 7/9/17 lúc 4:04 AM Bài viết mới
Hướng dẫn Cài Đặt Tubo Pascal 7.0 Full bởi Nguyễn Thành Đạt It, 7/9/17 lúc 4:04 AM
[Pascal] Viết chương trình tính số ngày của tháng bởi Trần Văn Cường, 19/6/16 lúc 5:14 AM
(Bạn phải Đăng nhập hoặc Đăng ký để đăng bài viết) Show Ignored Content Tên tài khoản hoặc địa chỉ Email:
Bạn đã có tài khoản rồi? - Tích vào đây để đăng ký
- Vâng, Mật khẩu của tôi là:
Bạn đã quên mật khẩu?
Duy trì đăng nhập
Diễn đàn sinh viên CNTT Quảng Ninh Trang chủ
Diễn đàn Công nghệ phần mềm Lập trình ứng dụng Desktop
Pascal | 
