Bài 58/2001 - Tổng các số tự nhiên liên tiếp

(Lời giải của bạn Nguyễn Quốc Quân - Lớp 11 T_2­ - Trường PTTH Lê Viết Thuật - Vinh)

(Dành cho học sinh THCS và PTTH)

Doc = ‘doc.inp’;

Max = 100;

n: integer = 0;

count: integer =0;

Var f1,f2:text;

o,i,j:integer;

a,b,c:array[1..max] of boolean;

BEGIN

clrscr;

Reset(f1); Reset(f2);

Read(f1,o);

Inc(n);

If o=1 then a[n]:=true

else a[n]:=false

end;

Readln(f1);

Read(f1,o);

Readln(f1);

Read(f2,o);

Readln(f2);

inc(count);

a:=b;

Close(f1); Close(f2);

Write('Co', count, ‘hinh vuong!’);

Readln;

(Lời giải của bạn Nguyễn Chí Thức - Lớp 10A1 - Khối chuyên Toán Tin - ĐH Sư phạm Hà Nội)

(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

Program Bai61;

Uses crt;

Var a:array[2..250,2..250] of -1..1;

n,i,j:integer;

BEGIN

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;

end;

for i:=1 to n do

begin

for j:=1 to n do Write(a[i,j]:3);

end;

If n mod 2 = 0 then Write(0) else Write(n);

Readln;

END.

(Dành cho học sinh THCS và PTTH)

Do sơ xuất khi ra đề nên trong số các lời giải của bạn đọc gửi đến toà soạn, có thể các bạn đã hiểu đề bài theo 2 cách sau đây, ta coi như hai bài toán:

1. Nếu theo ví dụ, thì ta cần chèn dấu vào xâu (không cần đủ 9 số như trong xâu S, có thể bớt một số số cuối của xâu, nhưng phải theo thứ tự) để phép tính nhận được bằng M cho trước.

2. Ta không để ý đến ví dụ của đề ra, yêu cầu cần chèn dấu vào giữa các số trong xâu '123456789' để nhận được kết quả M cho trước.

Sau đây là lời giải của bạn Nguyễn Chí Thức (hiểu theo bài toán 1):

Program Bai62;

Uses crt;

Const fo = 'chenxau.out';

dau: array[1..3] of String[1]= ('', '-', '+');

s:array[1..9] of char=('1','2','3','4','5','6','7','8','9');

Var d:array[1..9] of String[1];

m:longInt;

f:text;

found:boolean;

Procedure Init;

Begin

Readln(m);

found:=false;

end;

Var i,t:longint;

code:integer;

Begin

While not(s[i] in ['-','+']) and (i>0) do dec(i);

val(copy(s,i+1,length(s)-i),t,code);

If i=0 then begin tinh:=t; exit; end

else

begin

If s[i]='+' then tinh:=t+tinh(s);

If s[i]='-' then tinh:=tinh(s)-t;

end;

Procedure Test(i:integer);

Var st:string; j:integer;

Begin

For j:=1 to i do st:=st+d[j]+s[j];

If Tinh(st) = m then begin writeln(f,st); found:=true; end;

End;

Var j:integer;

Begin

for j:=1 to 3 do

d[i]:=dau[j]; Test(i);

If i<9 then try(i+1);

end;

BEGIN

Init;

for k:=1 to 2 do

begin

d[1]:=dau[k];

end;

Close(f);

END.
Từ lời giải trên của bạn Thức, để thoả mãn yêu cầu của bài toán 2, trong thủ tục Try cần sửa lại như sau:

Procedure Try(i:integer);

Var j:integer;

Begin

begin

If i<9 then try(i+1);

If i=9 then Test(i);

end;

(Dành cho học sinh Tiểu học)

a. Số đó chia hết cho 9 nên tổng các chữ số của nó phải chia hết cho 9. Ta thấy tổng 0 + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 = 45 chia hết cho 9. Vậy số nhỏ nhất bao gồm tất cả các chữ số 0, 1, 2, ..., 9 mà chia hết cho 9 là: 1023456789.

b. Số này chia hết cho 5 nên tận cùng phải là 0 hoặc 5. Nếu tận cùng là 5 thì số nhỏ nhất sẽ là 1023467895 còn nếu số đó tận cùng là 0 thì số nhỏ nhất sẽ là123457890.

So sánh hai số trên, suy ra số nhỏ nhất phải tìm là: 1023467895

c. Một số chia hết cho 20, do đó phải chia hết cho 10. Suy ra số đó phải là số nhỏ nhất tận cùng là 0. Mặt khác, chữ số hàng chục của số đó phải là một số chẵn. Vì vậy ta tìm được số phải tìm là 1234567980.

(Dành cho học sinh THCS và PTTH)

Program DoiMT;

Uses Crt;

Const nmax=50;

inp='INPUT.TXT'; {Du lieu duoc nhap vao file input.txt}

Type Mang=array [1..nmax,1..nmax] of real;

Var a,b,c: Mang;

n,i,j: integer;
Procedure Nhap;

Var i,j: integer;

f: text;

Begin

Readln(f,n);

For i:=1 to 2*n do

begin

Readln(f);

end;

Close(f);

Procedure Xuat(a: Mang);

Var i,j: integer;

Begin

begin

Writeln;

End;

Nhap;

For j:=1 to n do

begin

a[i+n,j+n]:=c[i,j];

a[i,j]:=c[i+n,j+n];

a[i+n,j]:=c[i,j+n];

b[i,j]:=c[i+n,j];

b[i,j+n]:=c[i,j];

b[i+n,j+n]:=c[i,j+n];

b[i+n,j]:=c[i+n,j+n];

end;

Xuat(c); {mang ban dau}

Writeln;

Xuat(a);

Xuat(b);

END.