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"

1 câu trả lời

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.