OPTADS360
AANETWORK
AMBIENT
YOMEDIA

L TD's Profile

L TD

L TD

05/01/2008

Số câu hỏi 0
Số câu trả lời 1
Điểm 18
Kết bạn

Bạn bè (0)

Hoạt động gần đây (1)

  • 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 2 năm
  • L TD: Login đăng nhập hàng ngày (+2đ) Cách đây 2 năm
OFF