Viết chương trình nhập vào 2 số a và b và thông báo kết quả của phép chia a cho b

2 câu trả lời

program viet_ct;

var a,b,kq:real;

uses crt;

begin

writeln('Nhap so a: '); readln(a);

writeln('Nhap so b: '); readln(b);

kq:=a/b;

readln

end.

program tinh;
uses crt;
var a, b :real;
begin
clrscr;
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
writeln('gia tri cua phep chia la :', a/b:8:2);
readln
end.