((()
))
program tuan_an_chot;
uses crt;
var a:array[1..100,1..100] of integer;
b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q:integer;
r,s,t,u,v,x,w,y,z:boolean;
begin
clrscr;
write('Nhap m: ');readln(m);
write('Nhap n: ');readln(n);
for i:=1 to m do
for j:=1 to n do begin write('Nhap a[',i,',',j,']: ');
readln(a[i,j]);
end;
writeln('Cac so thuoc day fibonacy la: ');
for i:=1 to m do
for j:=1 to n do
begin
b:=0;
c:=1;
repeat
d:=b+c;
if a[i,j]=d then write(a[i,j],' ');
b:=c;
c:=d;
until d>=a[i,j];
end;
writeln;
writeln('Cac so ... la: ');
for i:=1 to m do
for j:=1 to n do
begin
k:=2;
t:=true;
s:=false;
while (k<=a[i,j]-1) and t do
begin
if a[i,j] mod k=0 then begin
b:=1;
c:=1;
t:=false;
s:=true;
while (c<=n) and not t do
begin
if k=a[b,c] then t:=true;
b:=b+1;
if b>m then begin b:=1;
c:=c+1;
end;
end;
end;
k:=k+1;
end;
if t and s then write(a[i,j],' ');
end;
writeln;
writeln('Cac so hoan hao la:');
for i:=1 to m do
for j:=1 to n do
begin
c:=0;
for b:=1 to a[i,j]-1 do
if a[i,j] mod b=0 then c:=c+b;
if c<a[i,j] then write(a[i,j],' ');
end;
writeln;
writeln('Cac so an chot la:');
for i:=1 to m do
for j:=1 to n do
begin
b:=a[i,j];
c:=0;
repeat
d:=b mod 10;
c:=c+d*d*d;
b:=b div 10;
until b=0;
if c=a[i,j] then write(a[i,j],' ');
end;
readln;
end.program tuan_ngu;
uses crt;
var a:array[1..100,1..100] of byte;
m,n,i,j,x1,xm,y1,ym,b,c,h,w,max:integer;
t,s:boolean;
begin
clrscr;
write('Nhap m: ');readln(m);
write('Nhap n: ');readln(n);
for i:=1 to n do
for j:=1 to m do begin write('Nhap a[',i,',',j,']: ');
readln(a[i,j]);
end;
s:=false;
max:=0;
for i:=2 to m do
for j:=2 to n do
begin
x1:=1;
y1:=1;
repeat
t:=true;
b:=2;
c:=1;
repeat
if (a[x1+b-1,y1+c-1])<>a[x1,y1] then t:=false;
b:=b+1;
if b>j then begin b:=1; c:=c+1; end;
until (c>i) or (t=false);
if t and (i*j>max) then begin xm:=x1;
ym:=y1;
h:=i;
w:=j;
s:=true;
max:=i*j;
end;
x1:=x1+1;
if x1+j-1>n then begin x1:=1;
y1:=y1+1;
end;
until (y1+i-1>m) or t;
end;
clrscr;
if s then writeln('Co ton tai mang con chua toan 0 hoac 1')
else writeln('Khong ton tai mang con chua toan 0 hoac 1');
if s then
for i:=ym to ym+h-1 do
for j:=xm to xm+w-1 do
begin
gotoxy((j-xm+1)*2,(i-ym+1)*2);
write(a[j,i]);
end;
readln;
end.
gi` co?Đào Trọng Hiệp đã viết:Lần trc tao với mày spam hơi công khai nên mới bị xóa.
Mà ông Thạo ốm thật đúng không?
Hehe ngày mai mày lại mất vài mạng roài
)