a) ƯCLN của 2 số nguyên dương b) BCNN của 2 số nguyên dương Tổng của số thập phân S=1+1/2+1/3+…+1/n Kiểm tra tính nguyên tố CẦN GẤP NHANH NHÉ MN:))

0 bình luận về “a) ƯCLN của 2 số nguyên dương b) BCNN của 2 số nguyên dương Tổng của số thập phân S=1+1/2+1/3+…+1/n Kiểm tra tính nguyên tố CẦN GẤP NHANH NHÉ MN:))”

1. a)

   program UCLN;

   uses crt;

   var m,n:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          write(‘Nhap m: ‘);  readln(m);

          write(‘UCLN(‘,n,’,’,m,’)= ‘);

          while m<>n do

                 if m>n then m:=m-n else n:=n-m;

          write(n);

          readln;

   end.

   b)

   program Boi_chung_nho_nhat;

   uses crt;

   var m,n,BCNN:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          write(‘Nhap m: ‘);  readln(m);

          BCNN:=n*m;

          write(‘BCNN(‘,n,’,’,m,’)= ‘);

          while m<>n do

                 if m>n then m:=m-n else n:=n-m;

          BCNN:=BCNN div n;

          write(BCNN);

          readln;

   end.

   c)

   program tong;

   uses crt;

   var n,i:inteegr;

        S:real;

   begin

          clrscr;

          write(‘Nhap n: ‘); readln(n);

          S:=0;

          for i:=1 to n do

                 S:=S+1/i;

          write(‘S= ‘,s:0:2);

          readln;

   end.

   Bình luận

2. a)

   uses crt;
   var n,m,i:longint;
   begin
   clrscr;
      write(‘Nhap so nguyen duong n: ‘);readln(n);
      write(‘Nhap so nguyen duong m: ‘);readln(m);
      i:=n;
      while (n mod i<>0)or(m mod i<>0) do dec(i);
      writeln(‘UCLN(‘,n,’,’,m,’)=’,i);
   readln
   end.

   b)

   uses crt;
   var n,m,i:longint;
   begin
   clrscr;
      write(‘Nhap so nguyen duong n: ‘);readln(n);
      write(‘Nhap so nguyen duong m: ‘);readln(m);
      i:=n;
      while (i mod n<>0)or(i mod m<>0) do inc(i);
      writeln(‘BCNN(‘,n,’,’,m,’)=’,i);
   readln
   end.

   c)

   uses crt;
   var n,i:longint; s:real;
   begin
   clrscr;
      write(‘Nhap so nguyen duong n: ‘);readln(n);
      s:=0;
      for i:=1 to n do s:=s+1/i;
      writeln(‘s=’,s:0:2);
   readln
   end.

   d)

   uses crt;
   var n,i:longint;
   begin
   clrscr;
      write(‘Nhap so nguyen duong n: ‘);readln(n);
      i:=2;
      while(n>1)and(n mod i<>0)do inc(i);
      if i=n then writeln(‘n la so nguyen to’) else writeln(‘n khong la so nguyen to’);
   readln
   end.

   Bình luận