Đề thi Toán - Tin học trong nhà trường (Bài 60+61)

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)