đề tự luyện 1 -6

uses crt;
var i,j,n,k,t,a,b,c:integer;
    f:text;
function fb(n:integer):boolean;
var i,t,a,b,c,j:integer;
begin
a:=1;b:=0;c:=0;
while a<n do
      begin
          c:=a+b;
          b:=a;
          a:=c;
      end;
if a=n then fb:=true else fb:=false;
end;
{-}
begin
clrscr;
assign(f,'fibo.inp');
rewrite(f);
write('nhap so:');readln(n);
write(f,n);
close(f);
assign(f,'fibo.out');
rewrite(f);
for i:=n downto 1 do if (fb(i)=true) and (a+i<=n) then
    begin
        write(f,i);
        a:=a+i;
        if a<>n then write(f,'+');
    end;
close(f);
readln;
end.

uses crt;
var a:array[1..100,1..100] of integer;
    i,j,k,m,n,min,max,x,y,b:integer;
begin
clrscr;
write('Nhap so dong:');readln(m);
write('Nhap co cot:');readln(n);
for i:=1 to m do for j:=1 to n do
begin
    write('a[',i,',',j,']:');readln(a[i,j]);
end;
for i:=1 to m do
begin
    for j:=1 to n do write(a[i,j]:3);writeln;
end;
b:=0;
for i:=1 to m do
begin
    min:=a[i,1];
    for j:=1 to n do if min>a[i,j] then
    begin
          min:=a[i,j];    x:=j;
    end;
    max:=a[1,x];
    for k:=1 to m do if max<a[k,x] then
    begin
          max:=a[k,x];    y:=k;
    end;
    if max=min then
    begin
          writeln('(',y,',',x,')');
          b:=b+1;
    end;
end;
if b=0 then writeln('KO co');
readln;
end.