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

100 Problems & Solutions Trang 160

i:=1;
while fib(i)<=n do
inc(i);
j:=fib(i-1);
write(j,' + ');
n:=n-j;
end;
gotoxy(wherex-2,wherey);
writeln(' ');
end;
procedure test;
begin
clrscr;
write('Nhap n='); readln(n);
clrscr;
write('n=');
xuly;
end;
BEGIN
test;
readln;
END.
(Lời giải của bạn Cao Lê Thăng Long - Lớp 8E Nguyễn Trường Tộ - Hà Nội)

Bài 95/2002 - Dãy con có tổng lớn nhất
(Dành cho học sinh THPT)

Program subseq;
const inp = 'subseq.inp';
out = 'subseq.out';
var n, dau, cuoi, d:longint;
max, T:longint;
f, g:text;
Procedure input;
begin
assign(f,inp); reset(f);
assign(g,out); rewrite(g);
Readln(f,n);
End;
Procedure solve;
var i,j:longint;
begin
dau:=1; cuoi:=1; d:=1;
max:=-maxlongint; T:=0;
for i:=1 to n do
begin
readln(f,j); T:=T + j ;
If T > max then
begin
max:=T;
dau:=d; cuoi:=i;
end;
If T<0 then begin T:=0; d:=i+1; end;

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