Câu 1: Ma Phương
Viết chương trình nhập vào số tự nhiên n (n lẻ) từ bàn phím , sau đó điền các số từ 1 đến n2 trong một bảng vuông sao cho tổng các hàng ngang, dọc và 2 đường chéo bằng nhau(bảng này gọi là ma phương) xuất kết quả ra màn hình
Câu 1: Ma Phương
Viết chương trình nhập vào số tự nhiên n (n lẻ) từ bàn phím , sau đó điền các số từ 1 đến n2 trong một bảng vuông sao cho tổng các hàng ngang, dọc và 2 đường chéo bằng nhau(bảng này gọi là ma phương) xuất kết quả ra màn hình
Program bt;
Uses crt;
Var
s: String;
i,j,max: Integer;
d: Array [1..1000] Of Integer;
Begin
Clrscr;
read(s);
For i:= 1 To Length(s)-1 Do
For j:= i+1 To Length(s) Do
If s[j]=s[i] Then
Begin
d[i] := d[i]+1;
Delete(s,j,1);
End;
Writeln(‘So ki tu co trong chuoi la : ‘,Length(s));
max := d[1];
For i:=2 To Length(s) Do
If d[i] > max Then max := d[i];
For i:= 1 To Length(s) Do
If d[i]=max Then
Write(‘Ki tu ‘,s[i],’ xuat hien nhieu nhat voi ‘,d[i],’ lan xuat hien’);
Readln;
End.
var a:array[0..10000,0..10000] of longint;
ii,jj,i,j,q,qq,n,t:longint;
begin
read(n);
i:=n div 2+1; j:=(n div 2)-n+2; t:=0;
for q:=1 to n do
begin
ii:=i; jj:=j;
for qq:=1 to n do
begin
inc(t);
if jj<1 then a[ii,n-(0-jj)]:=t
else if jj>n then a[ii,0+jj-n]:=t
else if ii<1 then a[n-(0-ii),jj]:=t
else if ii>n then a[0+ii-n,jj]:=t
else a[ii,jj]:=t;
dec(ii); inc(jj);
end;
inc(i); inc(j);
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j],’ ‘);
writeln;
end;
end.