vẽ sơ đồ khối và viết chương trình cho thuật toán tìm BCLN của hai số a và b

0 bình luận về “vẽ sơ đồ khối và viết chương trình cho thuật toán tìm BCLN của hai số a và b”

1. chương trình tìm bcnn

   VAR a,b:longint;

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

   var c:longint;

   begin

      c:=a mod b;

   while c<>0 do

   begin

   a:=b;

   b:=c;

   c:=a mod b;

   end;

   ucln:=b;

   end;

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

    begin

   bcnn:=a*b div ucln(a,b);

   end;

   begin

   readln(a,b);

   write(bcnn(a,b));

   readln

   end.

   Bình luận