(Dành cho học sinh giỏi)
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).
Yêu cầu: Viết chương trình cho phép nhập hai số A và B đó từ bàn phím.
Hãy thực hiện:
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.
viết bằng pascal
(Dành cho học sinh giỏi) 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). Yêu cầu: Viết chương trình cho phé
By aikhanh
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.
Program NN;
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 trunc(sqrt(a)) do
If a mod i = 0 then exit(false);
exit(true);
End;
Function UCLN(a,b: longint): longint;
Var r: longint;
Begin
While b<>0 do
Begin
r:=b;
b:=a mod b;
a:=r;
End;
UCLN:=a;
End;
Begin
Clrscr;
Write(‘Nhap a: ‘); Readln(a);
Write(‘Nhap b: ‘); Readln(b);
For i:=a to b do
If ngto(i) then Write(i,’ ‘);
Writeln;
Write(‘UCLN cua ‘,a,’ va ‘,b,’ la: ‘,UCLN(a,b));
Readln
End.