PHÒng gd&Đt bình xuyên trưỜng thcs hưƠng sơN ĐỀ chính thứC ĐỀ thi khảo sát hsg cấp trưỜng tháng 1

Yêu cầu:

• 
  Dữ liệu vào: Nhập vào số N
  
• 
  Dữ liệu ra: Số lượng các ước lớn hơn 1 và tổng các ước
  
• 
  Ví dụ:
  

Dữ liệu vào		Dữ liệu ra
N= 4		Các ước lớn hơn 1 là: 2,3,4,6,8,12,24 Tổng các ước: 59

Chữ số từ 0 đến 9, nếu 1 chữ số bất kì có 1 đường khép kín thì chữ số đoá khoá 1 lỗ hổng, 2 đường khép kín-->2 lỗ hổng, không khoá đường khép kín-->0 lỗ hổg.

Ví dụ : N=388247 -->N có 5 lỗ hổng.

Yêu cầu:

• 
  Dữ liệu vào: Nhâp số N
  
• 
  Dữ liệu ra: số lượng lỗ hổng
  

Dữ liệu vào		Dữ liệu ra
N=24789		Số lượng lỗ hổng : 4

Em hãy viết chương trình giúp Bờm tìm được số vừa nhúp ở vị trí thứ K và tính tổng dãy số bạn Cuội đưa ra.

Yêu cầu:

• 
  Dữ liệu vào: Nhâp số N
  
• 
  Dữ liệu ra: Số tìm được và tổng chữ số của N
  

Dữ liệu vào		Dữ liệu ra
N=24723 K=3		7 18

uses crt;

var n, i: integer;

Function kiem_tra(n:integer):boolean;

var i: integer;

begin

for i:=2 to n-1 do if (n mod i) = 0 then kiem_tra:=false;

end;

begin

write('Nhap n: '); readln(n);

for i:=2 to n do if kiem_tra(i) then write(i:3, ', ');

readln;

Program Tim_uoc_2;

uses crt;

Var S, n, p,i,j, dem: longint;

Begin

clrscr;

Write('Nhap so n ='); readln(n);

Until (n>0);

P:=1;

P:=p*i;

Dem:=0; s:=0;

For j:=2 to p do

If p mod j=0 then

Begin

Dem:=dem+1;

End; Write(‘so luong cac uoc cua’,N, ’! la:’, dem);

Write(‘ tong cac uoc cua ‘, N,’ ! =’,s);

Readln ; end.

Uses crt;

Var N, k, I,j ,

St: string;

Function tongcs(n:integer): integer;

Var s: integer;

Begin

S:=0;

Begin

N:=n div 10;

End;

Tongcs:=s;

Begin

Write(‘nhap N=’); Readln(N);

Write(‘nhap vi tri thu k=’); readln(k);

If (k=0) or (k>length(st) then write(‘khong tim duoc so nao’);

For j:=1 to length(st) do

If k=j then write(‘so tim duoc la:’,s[k]);

Write(‘tong cac chu so cua N la:’, tongcs(N));