Viết chương trình tính kết quả của a chia cho b, với a và b là 2 số bất kì được nhập từ bàn phím .Chương trình chị thực hiện được khi b các không Nếu b = 0, thì báo lỗi “phép chia không thực hiện được”
Viết chương trình tính kết quả của a chia cho b, với a và b là 2 số bất kì được nhập từ bàn phím .Chương trình chị thực hiện được khi b các không Nếu b = 0, thì báo lỗi “phép chia không thực hiện được”
Program BTT;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write(‘Nhap a,b: ‘); Readln(a,b);
If b=0 then Write(‘Phep chia khong thuc hien duoc’)
Else Write(‘Ket qua cua phep chia la: ‘,a/b:0:2);
Readln
End.