rút gọn phân số tối giản với tử số và mẫu số được nhập từ bàn phím pascal
1 câu trả lời
program bai_giai;
uses crt;
var m,n,ucln,i:longint; ms,ts:real;
begin
clrscr;
write('nhap tu so n, mau so n:');readln(n,m);
for i:=1 to n do if(n mod i=0)and(m mod i=0)then ucln:=i;
ts:=n/ucln;
ms:=m/ucln;
writeln(ms:4:0);
writeln(' -----');
write(ts:4:0);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề kiểm tra giữa kì 2 - đề số 5 Môn anh English Discovery 6 có lời giải chi tiết
- Đề kiểm tra giữa kì 2 - đề số 4 Môn anh English Discovery 6 có lời giải chi tiết
- Đề kiểm tra giữa kì 2 - đề số 3 Môn anh English Discovery 6 có lời giải chi tiết
- Đề kiểm tra giữa kì 2 - đề số 2 Môn anh English Discovery 6 có lời giải chi tiết
- Đề kiểm tra giữa kì 2 - đề số 1 Môn anh English Discovery 6 có lời giải chi tiết
