YOMEDIA
NONE

Viết chương trình kiểm tra xem hai số a và b có phải là hai số nguyên tố tương đương không với a và b được nhập từ bàn phím?

Viết chương trình kiểm tra xem hai số a, b có phải là hai số nguyên tố tương đương không (a, b được nhập từ bàn phím)

Giải nhanh giúp mình nha! TKS

Theo dõi Vi phạm
ADSENSE

Trả lời (2)

  • Nguyễn Hoàng Mai Phương

    program bt;

    uses crt;

    var a,b:longint;

    function ktsnt(h:longint):boolean;

    var dem,i:byte;

    begin

    dem:=0;

    for i:=1 to h do

    if h mod i =0 then dem:=dem+1;

    ktsnt:=dem=2;

    end;

    function ucln(a,b:longint):longint;

    begin

    while a<>b do

    if a>b then a:=a-b else b:=b-a;

    ucln:=a;

    end;

    begin

    clrscr;

    write('nhap so a:');readln(a);

    write('nhap so b:');readln(b);

    if (ktsnt(a)=true) and (ktsnt(b)=true) then

    begin

    if ucln(a,b)= 1 then write(a,' va ',b,' la hai so nguyen to tuong duong')

    else write(a,' va ',b,' la hai so nguyen to nhung k tuong duong');

    end

    else if (ktsnt(a)=true) and (ktsnt(b)=false) then

    write(a,' la so nguyen to nhung ',b,' k phai so nguyen to')

    else if (ktsnt(a)= false) and (ktsnt(b)=true) then

    write(b,' la so nguyen to nhung ',a,' k phai so nguyen to')

    else write(a,' va ',b,' khong phai la so nguyen to');

    readln;

    end.

    banh

      bởi Nguyễn Hoàng Mai Phương 31/10/2018
    Like (1) Báo cáo sai phạm
    • YOMEDIA

    Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng

  • Hồ Phượng

    program bt;

    var         f1,f2:text;

                  i,n,a,b,l,j,k,s,f,g,e,m:integer;

                  h,p:array[1..10000] of integer;

    begin 

               assign(f1,'nt.inp');

               assign(f2,'nt.out');

               reset(f1);

               rewrite(f2);

               readln(f1,n);

               for i:= 1 to n do 

                  begin 

                     read(f1,a,b);

                     l:=0;

                   for j:= 1 to a do 

                     if a mod j =0 then 

                       begin 

                          kt:=true;

                          if j<=1 then kt:=false;

                         for f:= 2 to round(sqrt(j)) do 

                           if j mod f = 0 then kt:= false;

                           if kt then 

                              begin 

                               l:= l+1;

                               h[l]:= j; 

                              end;

                       end;

              for m:= 1 to l do write(f2,h[m]:3);

                   s:=0;

               for k:= 1 to b do 

                   if b mod k=0 then 

                      begin 

                          kt:=true;

                        if k<=1 then kt:= false;

                        for g:= 2 to round(sqrt(k)) do 

                            if k mod g=0 then kt:= false;

                            if kt then 

                               begin 

                                  s:=s+1;

                                  p[s]:=k;

                                end;

                          end;

               for e:= 1 to s do write(f2,p[e]:3);

                   kt:=false;

                 if l=s then 

                    for j:= 1 to l do 

                      if h[j]=h[j] then kt:=true;

                      if kt then writeln(f2,a,' ',b,'la cap so nto tuong duong')

                           else writelln(f2,a,' ',b,' ko la cap so nto tuong duong');

            end;

              close(f1);

              close(f2);

    end.

                   

     

      bởi Hồ Phượng 10/03/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 8

 

YOMEDIA
AANETWORK
OFF