Xác định bài toán và viết chương trình cho bài toán sau Bài 2: Cho hằng số N= 80. Nhập vào 1 số nguyên và so sánh số đó với N. In ra kết quả so sánh • Bài 3: Nhập vào 1 số từ bàn phím kiểm tra xem số đó có chia hết cho 4 và 9 hay không? • Bài 4: Viết chương trình đề giải phương trình ax+b=0 với 2 số a và b được nhập vào từ bàn phím

Bài 2:

**Xác định bài toán:

INPUT: Số nguyên bất kì và hằng số N=80

OUTPUT: So sánh số nguyên đó với N

**Viết chương trình:

Program baitap;

Uses crt;

Var a:integer;

Const N=80;

Begin

Clrscr;

Write('Nhap mot so nguyen:'); Readln(a);

If a>N then writeln('So vua nhap lon hon N');

If a<N then writeln('So vua nhap be hon N');

If a=N then writeln('So vua nhap bang N');

Readln

End.

Bài 3:

**Xác định bài toán:

INPUT: Một số bất kì được nhập vào từ bàn phím

OUTPUT: Số đó có chia hết cho 4 và 9 hay không

**Viết chương trình:

Program baitap;

Uses crt;

Var a:integer;

Begin

Clrscr;

Write('Nhap mot so bat ki:'); Readln(a);

If (a mod 4=0 and a mod 9=0) then writeln('So do chia het cho 4 va 9')

                                                  Else writeln('So do khong chia het cho 4 va 9');

Readln

End.

Bài 4:

**Xác định bài toán:

INPUT: Số a và b được nhập vào từ bàn phím

OUTPUT: Tìm nghiêm của phương trình ax+b=0

**Viết chương trình:

Program baitap;

Uses crt;Var a,b: longint;
Begin
Clrscr;
Write('a='); Readln(a);
Write('b='); Readln(b);

If (a=0) and (b=0) then writeln ('Vo so nghiem');

If (a=0) and (b<>0) then writeln ('Vo nghiem');

If (a<>0) then writeln ('Nghiem duy nhat:', -b/a);

Readln

End.