Đề HSG tỉnh Nam Định

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

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.

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.