Đáp án Đề thi tin học trẻ không chuyên tỉnh Hải Dương năm 2009 khối THCS

HƯỚNG DẪN CHẤM ĐỀ CHÍNH THỨC
(Hướng dẫn này có 02 trang)
Cách chấm điểm chung cho 3 bài như sau:
- Chương trình chạy cho kết quả đúng: khai báo đầy đủ, trình bày có cấu trúc rõ ràng cho
điểm tối đa. Không khai báo mỗi biến trừ 0.5 đ.
- Chương trình cho kết quả sai: chỉ chấm phần các ý chính của thuật toán, mỗi ý đúng cho
0.5 đ không vượt quá 40% số điểm của câu.
Bài 1 (7 điểm)
Program Bai1;
Var s,n,m:word; dem,max:byte;
Begin
Repeat
Write('Nhap N:'); readln(N);
Until (N>0) and (N<=65000);
s:=0; max:=0;
repeat
m:= (n mod 10);
n:= ( n div 10);
s:=s*10+m;
if max<m then
max:=m;
until (n=0);
Writeln('Chu so lon nhat:','max=',max);
Writeln('So in nguoc:',s);
Readln;
End.
Bài 2 (7 điểm)
Program bai2;
Var m, n: longint;dem,i:integer;
Begin
Write('Nhap mot so tu nhien:');Readln(n);

dem:=0;
m:=n;
Write(n,'=');
While (m mod 2 = 0) do
Begin
dem:=dem+1;
m:=m div 2;
write('2');
if m>0 then write('.');
End;
i:=3;
While (m>0) do
Begin
While (m mod i = 0) do
Begin
dem:=dem+1;
m:=m div i;
write(i);
if m>0 then write('.');
End;
i:=i+2;
End;
if dem=0 then write(n,' la so nguyen to');
Readln;
End.