Page 42 - C:\Users\Admin\Desktop\Sach mem upweb\

100 Problems & Solutions Trang 42

Phần II: LỜI GIẢI

Bài 1/1999 - Trò chơi cùng nhau qua cầu
(Dành cho học sinh Tiểu học)
Đáp số: 17 phút. Cách đi như sau:
Lượt 1: 2 + 1 sang, 1 quay về thời gian: 3 phút
Lượt 2: 10 + 5 sang, 2 quay về thời gian: 12 phút
Lượt 3: 2 + 1 sang thời gian: 2 phút
Tổng thời gian: 17 phút

Bài 2/1999 - Tổ chức tham quan
(Dành cho học sinh THCS)
Program bai2;
uses crt;
const fi = 'P2.inp';
fo = 'P2.out';
type _type=array[1..2] of integer;
mang=array[1..200] of _type;

var f:text;
d,v:mang;
m,n:byte;

procedure input;
var i:byte;
begin
assign(f,fi);
reset(f);
readln(f,n,m);
for i:=1 to n do
begin
read(f,d[i,1]);
d[i,2]:=i;
end;
readln(f);
for i:=1 to m do
begin
read(f,v[i,1]);
v[i,2]:=i;
end;
close(f);
end;

procedure sapxeptang(var m:mang;n:byte);
var d:_type;
i,j:byte;
begin
for i:=1 to n-1 do

Tin học & Nhà trường 100 Đề Toán - Tin học