Đề ôn tập môn Toán tin

Bài 60/2001 - Tìm số dư của phép chia
(Dành cho học sinh Tiểu học)
Vì 1976 và 1977 là 2 số nguyên liên tiếp nên nguyên tố cùng nhau, do đó số thoả mãn điều kiện của bài toán phải có dạng: 
 n = 1976*1977*k +76 (k là số nguyên)
nhưng 1976*1977 lại chia hết cho 39 nên phần dư của n khi chia cho 39 sẽ là 37 (= 76 - 39). 
Bài 61/2001 - Thuật toán điền số vào ma trận
(Dành cho học sinh THCS và PTTH)
Program Bai61;
Uses crt;
Var a:array[2..250,2..250] of -1..1;
 n,i,j:integer;
BEGIN
 Write('Doc vao n:'); Readln(n);
 Fillchar(a, sizeof (a), 0);
 for i:=1 to n do
 for j:=1 to n do
 begin
 If (i mod 2 0) and (j mod 2 0) then a[i,i] := 1;
 If (i mod 2 = 0) and (j mod 2 = 0) then a[i,i] := -1;
 end;
 Writeln('Mang da dien la: ');
 for i:=1 to n do
 begin
 for j:=1 to n do Write(a[i,j]:3);
 Writeln;
 end;
 Write('Tong lon nhat la:');
 If n mod 2 = 0 then Write(0) else Write(n);
 Readln;
END.
(Lời giải của bạn Trương Đức Hạnh - 12 Toán Năng Khiếu - Hà Tĩnh)