Lập chương trình Pascal nhập 2 số nguyên dương m,n vào từ bàn phím (0<m<n 969696) sau đó: 1) Đưa ra màn hình tử số và mẫu số của phân số tối giản m/n 2) Tìm cách biểu diễn phân số m/n dưới dạng tổng của một số ít nhất các phân số có tử số là 1, đưa ra màn hình số lượng các số hạng và các mẫu số của chúng. Ví dụ: Với m=20, n=24, kết quả ra màn hình có dạng Câu 1: 5 6
Câu 2: 2
2 3
GIÚP EM VỚI
Quảng cáo
1 câu trả lời 232
program PhanSo;
uses crt;
var
m, n, a, b, d, i: longint;
function gcd(x, y: longint): longint;
begin
if (y = 0) then
gcd := x
else
gcd := gcd(y, x mod y);
end;
begin
clrscr;
write('Nhap m, n (0 < m < n < 969696): ');
readln(m, n);
d := gcd(m, n);
writeln('Cau 1: ', m div d, ' ', n div d);
writeln('Cau 2:');
a := m; b := n; i := 0;
while (a <> 1) do
begin
if (b mod (a - 1) = 0) then
begin
writeln(b div (a - 1));
a := 1;
end
else
begin
writeln(b div a + 1);
a := a - b mod a;
b := b div a * a;
end;
i := i + 1;
end;
writeln('1 ', b);
writeln('So luong so hang: ', i + 1);
readln;
end.
Chương trình này sẽ thực hiện các yêu cầu sau:
Nhập vào hai số nguyên dương m và n từ bàn phím.
Tính và in ra tử số và mẫu số của phân số tối giản m/n.
Tìm cách biểu diễn phân số m/n dưới dạng tổng của một số ít nhất các phân số có tử số là 1, và in ra màn hình số lượng các số hạng và các mẫu số của chúng.
Lưu ý: Chương trình này không kiểm tra điều kiện 0 < m < n < 969696 khi nhập dữ liệu.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
4174
-
miss H
660 điểm
-
HuyTùng _🥇🤫 300 điểm
-
(๑﹏๑//)☪ảทջՇɦàทɦđêℳƙɦôทջℳưα
290 điểm
-
Học giỏi nhất
240 điểm
-
꧁༒ρɧáʈ༒꧂
225 điểm
-
ム𝘵𝘳𝘶𝘮𝘭𝘲𝘶𝘢𝘯𝘢𝘤𝘲𝘶𝘺╰‿╯
210 điểm
-
Idumichan
180 điểm
-
trumfi5akquy. 165 điểm
-
![chongqing university-[nk]](/upload/images/user/1760421069-tai-xuong-1jpg.jpg)
chongqing university-[nk]
65 điểm
-
Kieu Anh 55 điểm
-
boy phố jet jet 25 điểm
-
Bảo Trâm 20 điểm
-
Thanh Thảo 20 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7993
-
3 năm trước7574
-
3 năm trước6454
-
3 năm trước6270
-
3 năm trước6197
