viết chương trình tính a/b .Nếu b<>0(b khác o) thì tính.Ngược lại báo lỗi "B không thỏa mãn điều kiện*"
2 câu trả lời
program tinh;
uses crt;
var a, b : real;
begin
clrscr;
write('nhap so a :');readln(a);
write('nhap so b :');readln(b);
if b <> 0 then writeln('thuong cua a/b la :', (a/b):4:2)
else writeln('b khong oa man dieu kien');
readln
end.
uses crt;
var a,b:longint;
begin
clrscr;
readln(a,b);
if b=0 then write('B không thỏa mãn điều kiện*')else write(a/b:0:3);
readln;
end.