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.