Đá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. . 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. 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