bài 1:tìm số chẵn số lẻ Gía trị nhap n If n mod 2=0 Then write('so',n',la so chan') Else writeln('so',n',la so le'); bài 2:tìm số nhỏ nhất min:=a; If max<b then min:=6; write('so nho nhat la=',min); MN GHI ĐẦY ĐỦ BƯỚC HỘ MIK 2 BÀI NÀY VS! TUI HỨA SẼ LÀM ĐỦ ĐỂ TRẢ ƠN NHOA!!!

$#QLinkVN$

Cấu trúc chương trình như sau:

BÀI 1: Xác định tính chẵn lẻ

program chan_le;
uses crt;
var n: integer;
begin
clrscr;
write('Nhap gia tri n: '); readln(n);
begin
if (n mod 2=0) then writeln(n,' la so chan') else writeln(n,' la so le');
end;
readln;
end.

BÀI 2: Tìm số nhỏ nhất trong các số được nhập vào
(mình sẽ làm theo cấu trúc chương trình này có 3 giá trị được nhập vào nha, nếu muốn giảm xuống còn 2 giá trị thì xóa các câu mình đánh dấu (`\times`) nhá)

program so_sanh;
uses crt;
var a,b,c,min: integer;
begin
clrscr;
writeln('Nhap gia tri a: '); readln(a);
writeln('Nhap gia tri b: '); readln(b);
writeln('Nhap gia tri c: '); readln(c);              (`\times`)
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;                                   (`\times`)
writeln('So nho nhat la: ',min);
end;
readln;
end.