Bài 1 : Viết chương trình nhập vào một số nguyên a và cho biết đó là số âm
hay dương?
Bài 2: Viết chương trình kiểm tra tính chẵn lẻ của một số nguyên a?
Bài 3: Viết chương trình nhập vào một số nguyên N. Xét số đó có là số lẻ
dương hay không ?
Bài 1 : Viết chương trình nhập vào một số nguyên a và cho biết đó là số âm hay dương? Bài 2: Viết chương trình kiểm tra tính chẵn lẻ của một số nguyên
By Quinn
Bài 1:
Program bai1;
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.
Bài 2:
program chanle;
uses crt;
var n;
begin
clrscr;
write(‘Nhap n: ‘);
readln(n);
if n mod 2 = 0 then write(‘n la so chan’)
else (‘n la so le’);
readln;
end.
Bài 3:
program kiem_tra_so;
uses crt;
var a,k : integer;
begin
clrscr;
write(‘ Nhap so a = ‘);
readln(a);
write(‘ Nhap so k = ‘);
readln(k);
If a = 2 * k then writeln(‘ a la so chan’)
else writeln(‘ a la so le ‘);
readln;
end.
bai 1
uses crt ;
var a: integer;
begin
clrscr;
write(‘a=’);readln(a);
if a<0 then write(a,’la so am’)
else write(a,’la so duong’);
readln
end.
bai 2
uses crt ;
var a: integer;
begin
clrscr;
write(‘a=’);readln(a);
if a mod 2 = 0 then write(a,’la so chan’)
else write(a,’la so le’);
readln
end.
bai 2
uses crt ;
var n: integer;
begin
clrscr;
write(‘n=’);readln(n);
if (n>0) and (n mod 2 =1) then write(a,’la so le duong’)
else write(a,’ khong la so le duong’);
readln
end.