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.