$#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.

Bài 1 :

program chan_le;

uses crt;

var n : integer;

begin

clrscr;

write('nhap so n :');readln(n);

if n mod 2 = 0 then writeln('so', n ,'la so chan')

else writeln('so', n ,'la so le');

readln

end.

Câu 2 :

program tinh;

uses crt;

var a, b, min : integer;

begin

clrscr;

write('nhap so a :');readln(a);

write('nhap so b :');readln(b);

min := a;

if b < min then min := b;

writeln('so nho nhat la :', min);

readln

end.