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 12

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

Tổng m số cuối của n trong lập trình pascal.

Nhập vào 1 số tự nhiên n và nhập vào m, sau đó tính tổng m các số tận cùng của n.
vd: n = 365 m =2 tổng = 5+6=11.
Yêu cầu:

• 
  Dữ liệu vào: Nhâp số N, M
  
• 
  Dữ liệu ra:
  
• 
  Ví dụ:
  

Dữ liệu vào		Dữ liệu ra
N=2475 M=3		16

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

uses crt;

Var S, n, i,j: longint;

Begin

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

For i:=1 to n do

Begin

For j:=2 to (i div 2 ) do if i mod j = 0 then S:=S+j;

if S = I then write(i:6,’ ‘,);

end;

end.
Câu 2: (2đ)

1. 
   Program KIEM_TRA_SO_MAY_MAN ;
   USES Crt ;
   VAR i,n ,s,a,b,s1 : longint;
   st:string;

   Begin
   Clrscr ;

   
   Write('Nhap vao 1 so nguyen bat ky :');Readln(n) ;
   S:=0; a:=n ;S1:=0;
   str(a,st); { Doi so n ra chuoi }
   b:=length(st); { chieu dai cua chuoi }

   If b=4 then

   
   Begin
   For i:=1 to b-2 do
   Begin
   S1:= S1 + n mod 10 ;
   n:= n div 10 ;
   End;
   For i:=b-2 to b do
   Begin
   S:= S + n mod 10 ;
   n:= n div 10 ;
   End;
   If s1 = s then Write(a,' la so may man')
   Else Write(a,' khong la so may man ');
   End;

   If b=3 then

   
   Begin
   s1:= n mod 10 ;
   For i:=1 to b do
   Begin
   S:= S + n mod 10 ;
   n:= n div 10 ;
   End;
   If s-s1 = s1 then Write(a,' la so may man')
   Else Write(a,' khong la so may man ');
   End;

   If b=2 then

   
   Begin
   S:= S + n mod 10 ;
   n:= n div 10 ;
   If s=n then Write(a,' la so may man ')
   Else Write(a,' khong la so may man ');
   End
   Else Write(a,' lon hon 10000 khong tinh ');
   Readln
   End.
   

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;

tong:=0;
   for i:=1 to m do

var i,s:integer;