1.Viết chương trình nhập 2 số nguyên a,b ̣(a#b).in ra màn hình hai số a,b theo thứ tự tăng dần , giảm dần
2. Viết chương trình nhập số n . Kiểm tra n chẳn hay lẽ (nếu n chia hết cho 2 là số chẳn ,ngược lại là số lẻ)
1.Viết chương trình nhập 2 số nguyên a,b ̣(a#b).in ra màn hình hai số a,b theo thứ tự tăng dần , giảm dần
2. Viết chương trình nhập số n . Kiểm tra n chẳn hay lẽ (nếu n chia hết cho 2 là số chẳn ,ngược lại là số lẻ)
bài 1:
program sap_xep
uses crt;
var a,b:integer;
begin
clrscr;
writeln(‘nhap so nguyen a’); readln(a);
writeln(‘nhap so nguyen b’); readln(b);
if a<b then writeln(a,’_’,b) else writeln(b,’_’,a);
readln;
end.
bai 2
program so_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.
1/
program bai1;
uses crt;
var a,b:integer;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
if a>b then writeln(a,’ ‘,b)
else writeln(b,’ a’);
readln
end.
2/
program bai2;
uses crt;
var n:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
if n mod 2=0 then writeln(n,’ la so chan’)
else writeln(n,’ la so le’);
readln;
end.