2 câu trả lời
uses crt;
var a,b: int64;
function ch(x,y: int64) of real;
begin
ch:=x/y;
end;
begin
clrscr;
write ('nhap so bi chia: '); readln (a);
write ('nhap so chia: '); readln (b);
writeln (a,'/',b,'= ',ch(a,b));
readln;
end.
ĐÂY Ạ
uses crt;
var a,b: Qword;
function chia(x,y: Qword) of real;
begin
chia:=x/y;
end;
begin
clrscr;
write ('nhap so bi chia: '); readln (a);
write ('nhap so chia: '); readln (b);
writeln (a,'/',b,'= ',chia(a,b));
readln;
end.
Câu hỏi trong lớp
Xem thêm
