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