đề thi học sinh giỏi huyện

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

đề thi học sinh giỏi huyện

Bài gửi by huongtramy on 6/1/2011, 3:44 pm

Viết chương trình để khi nhập số tự nhiên ntwf bàn phím thì in ra số có nhiều ước nhất trong các số từ 1 dến n và các ước của nó.
vd: n=14 thì in ra số có nhiều ước nhất từ 1 đến 14 là số 12, có 6 ước
avatar
huongtramy
Thành viên mới
Thành viên mới

Nam Ngày sinh : 17/05/1978
Tuổi : 39
Ngày đăng ký : 06/01/2011

Về Đầu Trang Go down

Re: đề thi học sinh giỏi huyện

Bài gửi by tuấn informatics on 7/1/2011, 10:43 pm

kết quả là gì thế ạ ?
avatar
tuấn informatics
Thành viên mới
Thành viên mới

Ngày sinh : 02/11/1997
Tuổi : 19
Ngày đăng ký : 29/11/2010

Về Đầu Trang Go down

Re: đề thi học sinh giỏi huyện

Bài gửi by Admin on 9/1/2011, 12:40 pm

Code:

program help;
uses crt;
var n,max,dem,i,j,cur:integer;
begin
clrscr;
write('nhap n : ');
readln(n);
for i:=1 to n do
begin
    dem:=0;
    for j:=1 to i do if i mod j=0 then inc(dem);
    if dem>max then
    begin
          max:=dem;
          cur:=i;
    end;
end;
writeln('so co nhieu uoc so nhat : ',cur);
readln;
end.
avatar
Admin
Quản trị viên
Quản trị viên

Nam Ngày sinh : 18/01/1992
Tuổi : 25
Ngày đăng ký : 25/04/2008

http://diendanpascal.forumotion.com

Về Đầu Trang Go down

Re: đề thi học sinh giỏi huyện

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics
» Bán đất 2 mặt tiền đường Nguyễn Sinh Sắc Đà Nẵng,khu Tây Bắc
» -0936175427-Vệ sinh máy lạnh tại nhà quận 8,THẾ VINH UY TÍN call:0862786708,Thay thế block máy lạnh giá rẽ quận 8,Vệ sinh máy lạnh tại nhà quận 8,Vệ sinh máy lạnh tại nhà quận 8,Vệ sinh máy lạnh tại n
» -0936175427-Vệ sinh máy lạnh tại nhà quận 5,THẾ VINH UY TÍN call:0862786708,Thay thế block máy lạnh giá rẽ quận 5,Vệ sinh máy lạnh tại nhà quận 5,Vệ sinh máy lạnh tại nhà quận 5,Vệ sinh máy lạnh tại n
» 0927333554=>Sửa máy lạnh quận 3,vệ sinh máy lạnh quận 3)LH:0927333554-THÁI HÙNG)vệ sinh máy lạnh quận 3)vệ sinh máy lạnh quận 3)vệ
» ^0938103664^Vệ sinh máy lạnh quận 7,(0866800478)Vệ sinh máy lạnh tại nhà,tay nghề cao-đảm bảo chất lượng,có bảo hành,...Vệ sinh má

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết