Các bài toán ước chung lớn nhất pascal năm 2024
1: VCT pascal kiểm tra số n có phải là số nguyên tố không uses crt; var n,i,kt:integer; begin clrscr; repeat write('nhap n='); readln(n); if n<=1 then writeln('ban da nhap sai,yeu cau ban nhap lai'); until n>1; kt:=0; for i:=2 to n-1 do if n mod i=0 then begin kt:=1; break; end; if kt=0 then writeln(n,' la so nguyen to') else writeln(n,' khong la so nguyen to'); readln; end. 2:VCT pascal kiểm tra số n có phải là số hoàn hảo không uses crt; var n,i,t:integer; begin clrscr; write('nhap n:'); readln(n); t:=0; for i:=1 to n-1 do if n mod i=0 then begin t:=t+i; end; if t=n then writeln(n,' la so hoan hao') else write(n,' khong la so hoan hao'); readln; end. 3:VCT pascal kiểm tra số n xuất ra màn hình các số nguyên tố từ 2 đến n uses crt; var n,i,kt,j:integer; begin clrscr; repeat write('nhap n='); readln(n); if n<=2 then writeln('ban da nhap sai, yeu cau ban nhap lai'); until n>2; writeln('day cac so nguyen to trong khoang tu 2 toi ',n,' la:'); for i:=2 to n do begin kt:=0; for j:=2 to i-1 do if i mod j=0 then kt:=1; if kt=0 then write(i:4); end; readln; end. Viết chương trình tìm ước chung lớn nhất (UCLN) của hai số với yêu cầu sử dụng thuật toán Euclid. Thuật toán Euclid: Nếu a chia hết cho b (a chia b dư 0) thì UCLN(a,b) bằng b Nếu a chia b dư r thì UCLN(a,b) = UCLN(b,r) 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 mod b else b:=b mod a ; write('Uoc chung lon nhat la ',a); readln; end. nhìn hok thấy nhưng trên nguyên tắc thì ct này nhanh hơn. |