Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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

3 posters

Go down

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

Bài gửi by huongtramy 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
huongtramy
huongtramy
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

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

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

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

Về Đầu Trang Go down

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

Bài gửi by Admin 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.
Admin
Admin
Quản trị viên
Quản trị viên

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

https://diendanpascal.forumvi.com

Về Đầu Trang Go down

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

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

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