(Pascal-Nâng Cao) Chuyên đề If Then - Selfomy Hỏi Đáp

Chào mừng bạn đến với Selfomy Hỏi Đáp, hãy Hỏi bài tập hoặc Tham gia ngay Đăng nhập

• Đăng nhập
• Đăng ký

• Câu hỏi
• Hot!
• Chưa trả lời
• Chủ đề
• Đặt câu hỏi
• Lý thuyết
• Phòng chat

Đặt câu hỏi (Pascal-Nâng cao) Chuyên đề If then

• Selfomy Hỏi Đáp
• Học tập
• Tin học
• Tin học lớp 8
• (Pascal-Nâng cao) Chuyên đề If then

+3 phiếu 632 lượt xem đã hỏi 11 tháng 1, 2019 trong Tin học lớp 8 bởi supersmart2005 Cử nhân (2.6k điểm) đã bình luận 11 tháng 1, 2019 bởi supersmart2005 Cử nhân (2.6k điểm) Bạn hãy viết chương trình nhập 2 số tự nhiên M,N và thông báo "Dung" nếu M,N cùng tính chẵn lẻ, trong trường hợp ngược lại thì thông báo "Sai"

Hãy đăng nhập hoặc đăng ký để thêm bình luận.

Hãy đăng nhập hoặc đăng ký để trả lời câu hỏi này.

1 Câu trả lời

+1 thích đã trả lời 11 tháng 1, 2019 bởi MAN6002 Cử nhân (2.3k điểm) được bầu chọn là câu hỏi hay nhất 13 tháng 1, 2019 bởi supersmart2005 Hay nhất

Program TINH_CHAN_LE;

uses crt;

var m, n, x, y: Word;

begin

clrscr;

write('Nhap so m'); readln(m);

x:=m mod 2

write('Nhap so n'); readln(n);

y:=n mod 2

if x = y then writeln('Hai so cung tinh chan le')  

         else writeln('Hai so khong cung tinh chan le');

readln;

end. 

đã bình luận 12 tháng 1, 2019 bởi supersmart2005 Cử nhân (2.6k điểm) Cảm ơn bạn nhé!  Nhưng bạn có thể chia rõ các trường hợp cùng tính chẵn hoặc cùng tính lẻ được không rồi mình tick cho! đã bình luận 12 tháng 1, 2019 bởi MAN6002 Cử nhân (2.3k điểm)

Đây là chương trình chia rõ các trường hợp cùng tính chẵn hoặc cùng tính lẻ 

Program TINH_CHAN_LE_MOI;

uses crt;

var m, n, x, y: Word;

begin

clrscr;

write('Nhap so m'); readln(m);

x:=m mod 2

write('Nhap so n'); readln(n);

y:=n mod 2

if x=y then if x=y=0 then writeln('Hai so cung chan')

                     else writeln('Hai so cung le')  

       else writeln('Hai so khong cung tinh chan le');

readln;

end. 

Hãy đăng nhập hoặc đăng ký để thêm bình luận.

Các câu hỏi liên quan

+3 phiếu 1 trả lời 339 lượt xem (Pascal-Nâng cao) Chuyên đề If then Bạn hãy viết chương trình nhập 4 số từ bàn phím và kiểm tra xem chúng có tạo thành một cấp số nhân hay một cấp số cộng hay không. Đưa ra thông báo tương ứng. đã hỏi 12 tháng 1, 2019 trong Tin học lớp 8 bởi supersmart2005 Cử nhân (2.6k điểm)

• turbo-pascal
• supersmart2005
• tin-hoc-8

+4 phiếu 1 trả lời 533 lượt xem (Pascal-Nâng cao) Chuyên đề If then Bạn hãy viết chương trình nhập từ bàn phím 3 số thực bất kỳ và kiểm tra xem chúng có phải là số hạng của một cấp số cộng không? đã hỏi 12 tháng 1, 2019 trong Tin học lớp 8 bởi supersmart2005 Cử nhân (2.6k điểm)

• turbo-pascal
• supersmart2005
• tin-hoc-8

+2 phiếu 1 trả lời 641 lượt xem (Pascal-Nâng cao) Chuyên đề: Câu lệnh lặp Lập trình tính tổng A= 1+ 1/2+1/3+...+1/n (n: số được nhập từ bàn phím) đã hỏi 11 tháng 1, 2019 trong Tin học lớp 8 bởi supersmart2005 Cử nhân (2.6k điểm)

• turbo-pascal
• supersmart2005
• nang-cao
• tin-hoc-8

+2 phiếu 1 trả lời 463 lượt xem (Pascal-Nâng cao) Chuyên đề: Lệnh case Viết chương trình nhập từ bàn phím 3 số nguyên dương Ngày,Tháng,Năm. Hãy kiểm tra xem 3 số đưa vào có là một bộ ba số Ngày Tháng Năm hợp lệ hay không. đã hỏi 12 tháng 1, 2019 trong Tin học lớp 8 bởi supersmart2005 Cử nhân (2.6k điểm)

• turbo-pascal
• tin-hoc-8
• nang-cao

+1 thích 1 trả lời 615 lượt xem (Pascal-Luyện tập) Chuyên đề: Lệnh case Bạn hãy lập trình in ra số thứ tự các ngày trong tuần bắt đầu từ ngày đầu tiên là ngày thứ hai, ngày số 2 là ngày thứ 3 đến cuối tuần. đã hỏi 12 tháng 1, 2019 trong Tin học lớp 8 bởi supersmart2005 Cử nhân (2.6k điểm)

• turbo-pascal
• tin-hoc-8

0 phiếu 0 câu trả lời 359 lượt xem Câu lệnh if-then trong pascal là gì, có bao nhiêu dạng, cho vd mỗi dạng ? đã hỏi 7 tháng 1, 2022 trong Tin học lớp 11 bởi PTG Tiến sĩ (22.7k điểm) +2 phiếu 1 trả lời 194 lượt xem (Tin học 8-Pascal- nâng cao) Bạn hãy viết chương trình nhập số thực A và tìm ra số tự nhiên nhỏ nhất N sao cho: 1+1/2+1/3+...+1/N>A đã hỏi 8 tháng 1, 2019 trong Tin học lớp 8 bởi supersmart2005 Cử nhân (2.6k điểm)

• turbo-pascal
• supersmart2005

+2 phiếu 1 trả lời 317 lượt xem (Tin Học 8 - Pascal nâng cao) Bạn hãy nhập từ bàn phím 2 số tự nhiên m,n và tìm USCLN của chúng? đã hỏi 8 tháng 1, 2019 trong Tin học lớp 8 bởi supersmart2005 Cử nhân (2.6k điểm)

• turbo-pascal
• supersmart2005

+3 phiếu 1 trả lời 354 lượt xem (Tin Học 8 - Pascal cơ bản và nâng cao) Bạn hãy nhập từ bàn phím 2 số tự nhiên m,n và tìm USCLN của chúng? đã hỏi 8 tháng 1, 2019 trong Tin học lớp 8 bởi supersmart2005 Cử nhân (2.6k điểm)

• turbo-pascal
• supersmart2005

0 phiếu 1 trả lời 1.7k lượt xem [Turbo Pascal] Một số bài tập nâng cao & cơ bản về câu lệnh lặp C1: Số hoàn thiện là số tự nhiên có tổng các ước của nó (không kể nó) bằng chính nó. VCT kiểm tra xem một số được nhập từ bàn phím có phải là số hoàn thiện không? C2: Một cửa hàng có các thùng sơn có cân nặng lần lượt là 16,17,21 kg. 1 người khách hàng cần mua 115kg. Hãy VCT tính và cho biết cần bán bao nhiêu thùng sơn mỗi loại mà không phải bán lẻ thùng nào?     đã hỏi 2 tháng 12, 2017 trong Tin học lớp 8 bởi lop6/7tk_2017 Học sinh (314 điểm)

• tin-hoc-8
• turbo-pascal
• nang-cao
• co-ban

HOT 1 giờ qua

Thành viên tích cực tháng 12/2025

1. phamngoctienpy1987844

   50728 Điểm

2. vxh2k9850

   35980 Điểm

3. Khang1000

   31443 Điểm

4. Tí Vua Đệ Nhất

   28073 Điểm

Phần thưởng hằng tháng Hạng 1: 200.000 đồng Hạng 2: 100.000 đồng Hạng 3: 50.000 đồng Hạng 4: 20.000 đồng Phần thưởng bao gồm: mã giảm giá Shopee, Nhà Sách Phương Nam, thẻ cào cùng nhiều phần quà hấp dẫn khác sẽ dành cho những bạn tích cực nhất của tháng. Xem tại đâyBảng xếp hạng cập nhật 30 phút một lần

• Gửi phản hồi
• Hỗ trợ
• Quy định
• Chuyên mục
• Huy hiệu
• Trang thành viên: Biến Áp Cách Ly

Nhãn hiệu, logo © 2025 Selfomy Về Selfomy ...