Cho hai số A và B là hai số nguyên dương và A phải nhỏ hơn B (0 < A, B < 100).a) Tìm các số nguyên tố từ A đến B. b) Tìm ước chung lớn nhất của A và B.
Cho hai số A và B là hai số nguyên dương và A phải nhỏ hơn B (0 < A, B < 100).a) Tìm các số nguyên tố từ A đến B. b) Tìm ước chung lớn nhất của A và B.
Program NhatNgu;
Uses crt;
Var a,b,i: longint;
Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod i = 0 then exit(false);
exit(true);
End;
Function UCLN(x,y: longint): longint;
Var r: longint;
Begin
r:=y mod x;
While r<>0 do
Begin
r:=x mod y;
x:=y;
y:=r;
End;
UCLN:=x;
End;
Begin
Clrscr;
Write(‘Nhap a, b: ‘); Readln(a,b);
For i:=a to b do
If ngto(i) then Write(i,’ ‘);
Writeln;
Write(‘UCLN(‘,a,’,’,b,’) = ‘,UCLN(a,b));
Readln
End.
uses crt;
var a,b,i,t:longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while (a>1)and(a mod i<>0) do inc(i);
nt:=i=a;
end;
begin
clrscr;
write(‘a,b= ‘);readln(a,b);
write(‘Cac so nguyen to: ‘);
for i:=a to b do
if nt(i) then write(i,’ ‘);
writeln;
for i:=1 to a do if (a mod i=0)and(b mod i=0) then t:=i;
writeln(‘UCLN(‘,a,’,’,b,’)=’,t);
readln
end.