Tìm UCLN bằng thuật toán Euclid (Lập trình bằng Pascal)

0 bình luận về “Tìm UCLN bằng thuật toán Euclid (Lập trình bằng Pascal)”

1. Tìm UCLN bằng thuật toán Euclid (Lập trình bằng Pascal)

   `text(⇒ Đáp án:)`

   Program UCLN_Euclid;
   Uses crt;
   Var a, b, r: integer;
   Begin
           Clrscr;
           Readln(a);
           Readln(b);
           r:=a mod b;
           While r<>0 do
                   Begin
                           a:=b;
                           b:=r;
                           r:= a mod b;
                   End;
           Writeln(‘UCLN: ‘,b);
           Readln;
   End.

   Trả lời

2. Program UCLN_Euclid;
   Uses crt;
   Var a, b, r: integer;
   Begin
           Clrscr;
           Readln(a);
           Readln(b);
           r:=a mod b;
           While r<>0 do
                   Begin
                           a:=b;
                           b:=r;
                           r:= a mod b;
                   End;
           Writeln(‘UCLN: ‘,b);
           Readln;
   End.

   Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!

   Trả lời