viết chương trình pascal nhập vào từ bàn phím số nguyên dương a,b,c,d in ra màn hình hai số nguyên dương x,y là tử số và mẫu số của phân số tối giản a/b+c/d mỗi số cách nhau một dấu cách
nhanh giúp mk với
Quảng cáo
1 câu trả lời 727
4 năm trước
uses crt;
var a,b,c,d,x,y,t,m,g:longint;
(**************************************)
function ucln(a,b:longint):longint;
var r:longint;
begin
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
ucln:=a;
end;
(*******************************************)
begin
clrscr;
read(a,b,c,d);
t:=a*d+b*c;
m:=b*d;
g:=ucln(t,m);
x:=t div g;
y:=m div g;
write(x,' ',y);
readln
end.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
4095
-
3681
-
3213
Gửi báo cáo thành công!
