Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a, Vì (a,b)=6 => a=6m,b=6n (m<n;m,n thuộc N; (m,n)=1)
Ta có: a+b=84
=>6m+6n=84
=>6(m+n)=84
=>m+n=14
Ta có bảng:
| m | 1 | 3 | 5 |
| n | 13 | 11 | 9 |
| a | 6 | 18 | 30 |
| b | 78 | 66 | 54 |
Vậy các cặp (a;b) là (6;78);(18;66);(30;54)
b, mn + 3m = 5n - 3
=> mn + 3m - 5n = -3
=> m(n + 3) - 5n - 15 = -3 - 15
=> m(n + 3) - 5(n + 3) = -18
=> (m - 5)(n + 3) = -18
=> m - 5 và n + 3 thuộc Ư(-18) = {1;-1;2;-2;3;-3;6;-6;9;-9;18;-18}
Ta có bảng:
| m - 5 | 1 | -1 | 2 | -2 | 3 | -3 | 6 | -6 | 9 | -9 | 18 | -18 |
| n + 3 | -18 | 18 | -9 | 9 | -6 | 6 | -3 | 3 | -2 | 2 | -1 | 1 |
| m | 6 | 4 | 7 | 3 | 8 | 2 | 11 | -1 | 14 | -4 | 23 | -13 |
| n | -21 | 15 | -12 | 6 | -9 | 3 | -6 | 0 | -5 | -1 | -4 | -2 |
Mà m,n thuộc N
Vậy các cặp (m;n) là (4;15);(3;6);(2;3)
(3 điểm) Cho hình vẽ bên
a) 3 điểm thẳng hàng là:
A, O, B
E, N, D
O, M, N
F, M, C
b) O là trung điểm của đoạn thẳng AB
M là trung điểm đoạn thẳng ON, M là trung điểm của đoạn FC
c) Vì N là trung điểm của ED nên ND = EN = 3cm
a, Đúng
b, Đúng
c, Sai vì có những phần tử của N không phải là phần tử của M
uses crt;
var a,b,c,d,tu,msc,ucln,i:integer;
begin
clrscr;
write('Nhap tu cua phan so thu 1:'); readln(a);
repeat
write('Nhap mau cua phan so thu 1:'); readln(b);
until b<>0;
write('Nhap tu cua phan so thu 2:'); readln(c);
repeat
write('Nhap mau cua phan so thu 2:'); readln(d);
until d<>0;
msc:=b*d;
tu:=a*d+b*c;
ucln:=1;
if msc<tu then
begin
for i:=1 to msc do
if (msc mod i=0) and (tu mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
if msc=tu then ucln:=tu;
if msc>tu then
begin
for i:=1 to tu do
if (msc mod i=0) and (tu mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
if (msc div ucln)=1 then writeln(a,'/',b,'+',c,'/',d,'=',tu div ucln)
else writeln(a,'/',b,'+',c,'/',d,'=',tu div ucln,'/',msc div ucln);
readln;
end.
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.
Chọn A