Bạn bè (0)
Hoạt động gần đây (1)
-
L TD đã trả lời trong câu hỏi: Viết chương trình rút gon phân số a/b với a và b là hai số nhập từ bàn phím? Cách đây 3 năm
uses crt;
var e,f,i,a,b,c,d: byte;
begin
clrscr;
write('Tu so = '); readln(e);
write('Mau so = '); readln(f);
a:=e;
b:=f;
writeln('Phan so ban dau: ',e,'/',f);
while E <> F do
if E > F then E:=E-F
else F:=F-E;
If e <> 1 then
begin
a:=a div e;
b:=b div e;
write('Phan so toi gian: ',a,'/',b);
end
else write('Phan so da toi gian, ',a,'/',b);
readln
end.
Điểm thưởng gần đây (2)
-
L TD: trả lời câu hỏi, user trả lời được +1 (+1đ) Cách đây 3 năm
-
L TD: Login đăng nhập hàng ngày (+2đ) Cách đây 3 năm