Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program chan_le;
uses crt;
var n : integer;
begin
clrscr;
write('nhap so nguyen duong n :');readln(n);
if n mod 2 = 0 then writeln(n ,' la so chan ')
else writeln(n ,' la so le ');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
program kiemtra;
uses crt;
var n:integer
begin
clrscr;
write('Nhap n:');readln(n);
if n mod 2=0 then write('N la so chan) else write('N la so le)
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin