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.