K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

12 tháng 5 2021

program im_14424;

uses crt;

var m: interger;

begin 

clrscr;

write('Nhap vap so nguyen duong m: ');

readln(m);

if m>0 and m mod 2 = 0 then write('So nguyen duong m la so chan');

if m>0 and m mod 2 <> 0 then write('So nguyen duong m la so le);

if m<0 then write('m khum phai la so nguyen duong');

readln

end.

12 tháng 5 2021

Mong được sự giúp đỡ của mọi người ạ