Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Đề HSG tỉnh Nam Định

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Đề HSG tỉnh Nam Định   15/1/2015, 23:05

Bài 1: Số chia hết hoàn toàn là số có tất cả các chữ số đều là ước của số hình thành từ số chữ số đầu tiên đến chữ số đó.
Cho số nguyên N (N<30001), tìm số số chia hết hoàn toàn thoả mãn lớn hơn 10 và nhỏ hơn N.
Bài 2: Từ là một chuỗi kí tự liền nhau không có dấu cách. Đoạn văn bản là chuỗi gồm các từ cách nhau bởi ít nhất 1 dấu cách. Độ dài của từ là số lượng kí tự của từ. Cho đoạn văn bản, hãy cho biết số từ liền nhau có cùng độ dài lớn nhất.
Ví dụ:
DOAN.IN DOAN.OUT
chuc cac thi sinh dat ket qua cao 4

Bài 3: Các nhân viên trong cơ quan có thể biết nhà nhau. Một cặp được viết (A,B) có nghĩa là nhân viên A biết nhà nhân viên B, nhân viên A sẽ biết nhà nhân viên C nếu nhân viên B biết nhà nhân viên C. Độ quan trọng của một nhân viên được đánh giá bởi số nhân viên khác mà nhân viên này biết nhà. Cho số nhân viên, số cặp nhân viên biết nhà, các cặp nhân viên biết nhà. Hãy tìm ra nhân viên quan trọng nhất (Nếu có nhiều lấy người có chỉ số nhỏ).
Ví dụ:
NHA.IN NHA.OUT
5 4
3 1
3 2
4 3
5 3 4

Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Re: Đề HSG tỉnh Nam Định   11/12/2016, 15:16

Bài 1:
uses crt;
var n,a:integer;
i:longint;
{-}
function w(a:longint):boolean;
var s:string;
i,b,code,c:integer;
begin
str(a,s);c:=0;b:=0;
for i:=1 to length(s) do
begin
val(s[i],a,code);
b:=b*10+a;
if a<>0 then if b mod a=0 then c:=c+1;
end;
if c=length(s) then w:=true else w:=false;
end;
{-}
begin
clrscr;
write('Nhap so nguyen:');readln(n);a:=0;
for i:=11 to n do if w(i)=true then
begin
a:=a+1;
write(i:5);
end;
if a=0 then writeln('Ko co so chia het hoan toan');
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: Đề HSG tỉnh Nam Định   11/12/2016, 15:16

Bài 1:Số chia hết hoàn toàn
Code:
uses crt;
var a,b,c,i,n,j,k,v,t,r:integer;
    st:string;
function kt(a:integer):boolean;
var i,n,j,k,b,c:integer;
    st2:string;
begin
str(a,st2);
k:=-0;b:=0;j:=0;
for i:=1 to length(st2) do
    begin
        val(st2[i],k,a);
        b:=10*b+k;
        if k<>0 then if b mod k=0 then j:=j+1;
    end;
if j=length(st2) then kt:=true else kt:=false;
end;
{-}
begin
clrscr;
write('nhap so n:');readln(n);
for v:=10 to n do
begin
if kt(v)=true then write(v:3);
end;
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Đề HSG tỉnh Nam Định   

Về Đầu Trang Go down
 
Đề HSG tỉnh Nam Định
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Các bộ đề thi-
Chuyển đến