HƯỚNG DẪN CHẤM ĐỀ CHÍNH THỨCHướ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
Trang 1HƯỚ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