viết chương trình nhập vào 2 số nguyên dương a b và in ra màn hình ước số của hai số nguyên đó, Ước số chung lớn nhất cảu hai số đó Viết chương trình

0 bình luận về “viết chương trình nhập vào 2 số nguyên dương a b và in ra màn hình ước số của hai số nguyên đó, Ước số chung lớn nhất cảu hai số đó Viết chương trình”

1. Câu 2:
   Program NTO;
   Uses crt;
   Var n,i,count: longint;

   Function is_Prime(n: longint): boolean;
   Var i: longint;
   Begin
           If n<2 then exit(false);
           For i:=2 to trunc(sqrt(n)) do
                   If n mod i = 0 then exit(false);
           Exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           i:=1; count:=0;
           While count<=n do
           Begin
                   inc(i);
                   If is_Prime(i) then
                   Begin
                           Write(i,’ ‘);
                           inc(count);
                   End;
           End;
           Readln
   End.

   Bình luận

2. bài 1: uses crt;
   var a,b: integer;
   begin
   clrscr;
   write(‘Nhap a: ‘); readln(a);
   write(‘Nhap b: ‘); readln(b);
   while a<>b do
   if a>b then a:=a-b else b:=b-a;
   writeln(‘UCLN: ‘,a);
   readln;
   end.

   bài 2: 

   uses crt;
   var n,d,e: integer;
   {—-Ham Kiem Tra Nguyen To—-}
    snt: boolean;
   function ktnt(a:integer): boolean;
   var i: integer;
   kt: boolean;
   begin
   kt:= true;
   if a<=1 then kt:=false;
    for i:=2 to trunc(sqrt(a)) do
    if (a mod i = 0) then kt:=false;
     ktnt:=kt; end;
     {—Chuong Trinh Chinh—}
     begin
   clrscr;
   write(‘Nhap n: ‘); readln(n);
   for e:=1 to n do
    if ktnt(e) then begin
     d:=d+1;
     write(e,’ ‘); end;
   writeln;
   writeln(‘Co ‘,d,’ so’);
   readln;
   end.

   đã test mong được vote!

   Bình luận