Viết chương trình thực hiện các việc sau bằng passcal: - nhập 2 so a,b - tính thương a/b

2 câu trả lời

uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
if b=0 then writeln('loi khi b=',b,' khong chia duoc')
else
writeln(a/b:5:2);
readln
end.

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap hai so a va b : ');readln(a, b);

writeln('thuong hai so : ', (a/b):2:1);

readln

end.