Nhập n, xuất ra màn hình số phản nguyên tố lớn nhất bé hơn n
2 câu trả lời
Uses crt;
Var max,i,n,ln:longint;
Function demuoc(b:longint):longint;
Var dem,i:longint;
Begin
dem:=0;
For i:=1 to b do
If b mod i=0 then dem:=dem+1;
demuoc:=dem;
End;
Begin
Clrscr;
Write('Nhap n: '); readln(n);
max:=0;
For i:=1 to n do
If demuoc(i)>max then
Begin
max:=demuoc(i);
ln:=i;
End;
Write('So phan nguyen to: ',ln);
Readln
End.
var n,t,max:longint;
function count(x:longint):word;
var i:longint;
d:word
begin
for i:=1 to x do if x mod i=0 then inc(d);
exit(d);
end;
begin
write('Nhap n: '); readln(n);
for j:=1 to n do
if count(i) > max then
begin
max : = count(i);
t:=i;
end;
write('So can tim la: ',i);
readln
end.
Câu hỏi trong lớp
Xem thêm
