Pascal: Tìm số có nhiều ước nhất trong khoảng từ 1 đến N. N là số nguyên được nhập từ bàn phím. 22/07/2021 Bởi Elliana Pascal: Tìm số có nhiều ước nhất trong khoảng từ 1 đến N. N là số nguyên được nhập từ bàn phím.
program uoc_so; uses crt; var n,i,j,ptu,d,max:integer; begin clrscr; write(‘Nhap N: ‘); readln(n); ptu:=1; max:=1; for i:=2 to n do begin d:=0; for j:=1 to i do if i mod j=0 then d:=d+1; if d>max then begin max:=d; ptu:=i; end; end; Bình luận
program uoc_so; uses crt; var n,i,j,ptu,d,max:integer; begin clrscr; write(‘Nhap N: ‘); readln(n); ptu:=1; max:=1; for i:=2 to n do begin d:=0; for j:=1 to i do if i mod j=0 then d:=d+1; if d>max then begin max:=d; ptu:=i; end; end; write(‘So co nhieu uoc nhat tu 1 den ‘,n,’ la: ‘,ptu); readln; end. Bình luận
program uoc_so;
uses crt;
var n,i,j,ptu,d,max:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
ptu:=1; max:=1;
for i:=2 to n do
begin
d:=0;
for j:=1 to i do
if i mod j=0 then d:=d+1;
if d>max then
begin
max:=d;
ptu:=i;
end;
end;
program uoc_so;
uses crt;
var n,i,j,ptu,d,max:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
ptu:=1; max:=1;
for i:=2 to n do
begin
d:=0;
for j:=1 to i do
if i mod j=0 then d:=d+1;
if d>max then
begin
max:=d;
ptu:=i;
end;
end;
write(‘So co nhieu uoc nhat tu 1 den ‘,n,’ la: ‘,ptu);
readln;
end.