Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
nguyễn an phát
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 22:50

uses crt;

var i,n,m,k,d:integer;

{---------------chuong-trinh-con-tim-ucln--------------------}

function ucln(x,y:integer):integer;

var t:integer;

begin

while y<>0 do

begin

t:=x mod y;

x:=y;

y:=t;

end;

ucln:=x;

end;

{------------chuong-trinh-con-kiem-tra-so-nguyen-to-------------------}

function nt(b:longint):boolean;

var j:longint;

begin

nt:=true;

if (b=2) or (b=3) then exit;

nt:=false;

if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(b)) do

begin

if (b mod j=0) or (b mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

{---------------chuong-trinh-chinh---------------------}

begin

clrscr;

write('Nhap N: '); readln(N);

write('Nhap M: '); readln(M);

d:=0;

k:=ucln(N,M);

for i:=1 to k do

if nt(i) then d:=d+1;

if d>0 then writeln('2 so nay tuong duong voi nhau')

else writeln('2 so nay khong tuong duong voi nhau');

readln;

end.

nguyễn an phát
3 tháng 6 2021 lúc 9:22

uses crt;

var i,n,m:integer;

a,b:array[1..100]of integer;

function nt(n:integer):boolean;

begin

  if n<2 then nt:=false;

  for i:=2 to n div 2 do

  if n mod i=0 then nt:=false;

end;

function nttd(n,m:integer):boolean;

var i,j,k,d,dem,s:integer;

a,b:array[1..100]of integer;

begin

  nttd:=false;

  d:=0;

  for j:=1 to n do

  if (nt(j))and(n mod j=0) then

  begin

    inc(d);

    a[d]:=j;

  end;

  dem:=0;

  for k:=1 to n do

  if (nt(k))and(m mod k=0) then

  begin

    inc(dem);

    b[dem]:=k;

  end;

  s:=0;

  if d=dem then for i:=1 to d do if a[i]=b[i] then

  inc(s);

  if s=d then nttd:=true else nttd:=false;

end;

BEGIN

  clrscr;

  write('nhap n,m:');readln(n,m);

  if nttd(n,m) then writeln(n,' va ',m,' la nguyen to tuong duong')

  else writeln(n,' va ',m,' khong phai la nguyen to tuong duong');

  readln;

END.

nguyễn an phát
3 tháng 6 2021 lúc 9:24

uses crt;

Var M,N,d,i,luun,luum:integer;

Function USCLN(m,n: integer): integer;

Var r: integer;

Begin

luun:=n;luum:=m;

While n<>0 do

begin

r:=m mod n; m:=n; n:=r;

end;

USCLN:=m;

End;

function nttd:integer;

begin

  d:=USCLN(M,N); i:=2;

  While d<>1 do

  begin

    If d mod i =0 then

    begin

      While d mod i=0 do d:=d div i;

      While M mod i=0 do M:=M div i;

      While N mod i=0 do N:=N div i;

    end;

    Inc(i);

  end;

  If M*N=1 then Write(luum,'  va ', luun,' la so nguyen to tuong duong.')

  Else Write(luum ,' va  ',luun ,' khong phai la so nguyen to tuong duong.');

end;

BEGIN

  clrscr;

  Write('Nhap M,N:'); Readln(M,N);

  nttd;

  Readln;

END.

quan nguyen hoang
Xem chi tiết
ILoveMath
6 tháng 1 2022 lúc 21:09

A

Dương Tuấn Kiệt
6 tháng 1 2022 lúc 21:09

A

ʚLittle Wolfɞ‏
6 tháng 1 2022 lúc 21:10

Câu A đúng ko

my mia
Xem chi tiết
Nguyễn Thu Thủy
1 tháng 1 2017 lúc 9:49

Hai số tự nhiên nguyên tố cùng nhau sẽ có ước chung lớn nhất là 1

Minh  Ánh
20 tháng 8 2016 lúc 13:31

hai số tự nhiên

được gọi là nguyên tố cùng nhau nếu chúng có 

ước chung lớn nhất =1

tíc mình nha

Lê Minh Anh
20 tháng 8 2016 lúc 13:32

Hai số tự nhiên được gọi là số nguyên tố cùng nhau nếu chúng có ước chung lớn nhất là 1.

Minh Hiếu
Xem chi tiết
Lê Quang Phúc
15 tháng 6 2015 lúc 18:13

Là 1                

Dương Thanh Huyền
21 tháng 12 2016 lúc 20:36

hai số nguyên tố cùng nhau có ước chung là 1 nhé!

Nguyễn Ngọc Anh Thơ
Xem chi tiết
Quách Thành Thống
11 tháng 3 2017 lúc 16:19

Gọi d là UCLN(2n+1;14n+5)

->(14n+5)-(2n+1)chia hết cho d

->(14n+5)-7(2n+1) chia hết cho d

->14n+5-14n-1 chia hết cho d

->n+5-n-1

4 chia hết cho d

d thuộc {1;-1;2;-2;4;-4}

Sau đó thì bạn dùng phương pháp thử chọn nha.

SKT_Rengar Thợ Săn Bóng...
Xem chi tiết
Lê Trọng Quý
Xem chi tiết
Lê Thị Như Quỳnh
16 tháng 9 2023 lúc 12:17

nam moooooooooooooooooooooooooooooooo

 

Dương công việt anh
Xem chi tiết
Dương công việt anh
7 tháng 11 2017 lúc 20:35

Có hai số nguyên tố cùng nhau mà cả hai đều là hợp số. Ví dụ 44 và 99.

Thật vậy 4=22;9=324=22;9=32, chúng là những hợp số mà không có ước nguyên tố nào chung. Vì thế ƯCLN(4,9)=1ƯCLN(4,9)=1; nghĩa là 44 và 99 là hai số nguyên tố cùng nhau.



Xem thêm tại: http://loigiaihay.com/bai-141-trang-56-sgk-toan-6-tap-1-c41a4034.html#ixzz4xkj7PxZo

phúc
Xem chi tiết