cac bai toan ve so

Ngày tải lên: 20/09/2012, 17:16

... Writeln(&apos ;Cac so Mersen <=',N,' la:'); End; tuso:=tuso div a; mauso:=mauso div a; Write('Phan so p/q sau khi rut gon la ',tuso,'/ ',mauso); readln; END. ... crt; Var tuso,mauso,a,b,r:integer; BEGIN clrscr; Writeln('Nhap phan so p/q'); Write('p=');readln(tuso); Write('q=');readln(mauso); a:=abs(tuso); b:=abs(mauso)...

Ngày tải lên: 07/06/2013, 01:25

Ngày tải lên: 18/08/2013, 16:10

Ngày tải lên: 19/10/2013, 20:20

Ngày tải lên: 02/04/2013, 17:10