Câu 1: Nhập vào từ bàn phím số nguyên dương.Hãy viết chương trình kiểm tra và thông báo ra màn hình a là số chẵn hay lẻ? Câu 2: Nhập vào từ bàn phím số nguyên a. Hãy viết chương tình kiểm tra và thông báo ra màn hình số âm hay dương? Mn giúp em vs ạ.
2 câu trả lời
Câu 1
uses crt;
var n:longint;
begin
clrscr;
readln(n);
if (n mod 2 = 0) then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
Câu 2
uses crt;
var n:longint;
begin
clrscr;
readln(n);
if (n > 0) then writeln(n,' la so duong');
if (n < 0) then writeln(n,' la so am');
if (n = 0) then writeln(n,' la so khong am va khong duong');
readln;
end.
Câu 1:
program chan_le;
uses crt;
var a: integer;
begin
clrscr;
write('nhap so a:');
readln(a);
if (a mod 2 = 0) then writeln(a,' la so chan ')
else writeln(a,' la so le ');
readln
end.
Câu 2:
Program am_duong;
uses crt;
var a:integer;
begin
clrscr;
write('nhap so a ='); readln(a);
if a> 0 then writeln('a la so duong ') else
writeln('a la so am ');
readln
end.
