VTC Pascal tìm ước chung lớn nhất của n (n nhập từ bàn phím). (sử dụng lệnh repeat…until)

0 bình luận về “VTC Pascal tìm ước chung lớn nhất của n (n nhập từ bàn phím). (sử dụng lệnh repeat…until)”

1. uses crt;
   var n,i:longint;
   begin
          clrscr;
          write(‘Nhap n: ‘); readln(n);
          i:=n;
          repeat
                 i:=i-1;
          until n div 2 mod i=0;
          writeln(‘Uoc lon nhat cua ‘,n,’: ‘,i);
          readln;
   end.

   Bình luận

2. program uoc_max;

   uses crt;

   var n,i:integer;

   begin

          clrscr;

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

          i:=n;

          repeat

                 i:=i-1;

          until n mod i=0;

          write(i);

          readln;

   end.

   Bình luận