Viết thuật toán, chương trình tính kết quả của a chia hết cho b ,với a và b là 2 số bất kì.Phép tính chỉ thực hiện được khi b!=0, sẽ báo lỗi khi b=0

1 câu trả lời

uses crt;

var a,b:integer;

begin

       clrscr;

       write('Nhap a: ');       readln(a);

       write('Nhap b: ');        readln(b);

       if b<>0 then write(a,':',b,'= ',a/b:2:2)

              else write('mau so bang 0, khong chia duoc');

       readln;

end.

Câu hỏi trong lớp Xem thêm