YOMEDIA
NONE

Nhập vào 2 số nguyên dương. Kiểm tra xem hai số đó có phải là 2 số nguyên tố cùng nhau hay không ?

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Hữu Trí

    program sontcungnhau;

    uses crt;

    var a,b,x,y:integer;

    {Ham kiem tra uoc chung lon nhat}

    function ucln(var m,n:integer):integer;

      var du:integer;

    begin

      while n<>0 do

        begin

          du:=m mod n;

          m:=n;

          n:=du;

        end;

      ucln:=m;

    end;

    {Ham kiem tra so nguyen to}

    function snt(var m:integer):boolean;

      var i:integer;

      begin

        snt:=false;

        for i:=2 to trunc(sqrt(m)) do

          if m mod i = 0 then exit;

        snt:=true;

      end;

    {Chuong trinh chinh}

    begin

    clrscr;

      write('Nhap vao so thu nhat: ');readln(a);

      write('Nhap vao so thu hai: ');readln(b);

      x:=a;

      y:=b;

      if snt(a) and snt(b) then

        begin

          if (ucln(a,b)=1) then

            writeln('Ket qua: ',x,' va ',y,' la hai so nguyen to cung nhau')

          else

            writeln('Ket qua: ',x,' va ',y,' khong la hai so nguyen to cung nhau');

        end

      else

        writeln('Khong phai cung la hai so nguyen to can kiem tra');

    readln;

    end.

      bởi Hữu Trí 30/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON