Viết chương trình nhập 4 số a,b,c,d. Tính S = a + b + c + d P = a . b . c . d Q = a + b + c + d / 4 R = a . b /2 - c . d /3 Cần gấp nha mn. Mik còn đang ngồi trên trường đó:(((((((

program hieups; var a,b,c,d,msc: longint; function UCLN(a,b: longint): longint; var r: longint; begin r := a mod b; while r <> 0 do begin r := a mod b; a := b; b := r; end; UCLN := a; end; procedure Output; var t: longint; begin if (a mod msc = 0) then write(a div msc) else begin t := UCLN(a,msc); a := a div t; msc := msc div t; if msc < 0 then write(-a,'/',abs(msc)) else write(a,'/',msc); end; end; begin readln(a,b,c,d); msc := b * d; a := (a * d) - (c * b); Output; end.

CHO TUI CTLHN NHÁ