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

thenvanquyetpt123

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 57 xem

1 trả lời

Thích Trả lời

linhhoang1931

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.

Vote (0) Phản hồi (0) 2 năm trước

datyeulol13

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Chứng minh các dãy sau có giới hạn là 0 : Un=1/n+3

Trong các điểm sau đây:A(0;-1);B(2;0).Những điểm nào thuộc đồ thị hàm số:y=-x+2

Đốt cháy hoàn toàn 12g bột kẽm trong oxi. Người ta thu được kẽm oxit(ZnO) a)Viết PTHH b)TÍnh khối lượng ZnO. Biết Zn=65 O=16

1 vật khối lượng 2kg chuyển động tròn đều với bán kính quỹ đạo chuyển động là 10k tính lực hướng tâm của vật biết tốc độ dài của vật là 5m/s

You must not ..........your car in front of the entrance 4 chữ

Sự tiến hóa về bộ xương người so với bộ xương vượn đc thể hiện như thế nào

Viết đoạn văn ngắn ( khoảng 5 đến 6 dòng) bày tỏ suy nghĩ về chữ "nhớ " trong bài ca dao khăn thương nhớ ai. ( không lấy trên mạng nha)

Tính tổng của cấp số nhân lùi vô hạn

Viết phương trình phản ứng của butan : a/ Tác dụng với clo (askt) theo tỉ lệ mol 1:1 b/ Tách 1 phân tử H2 c/ Cracking. Viết phương trình phản ứng của butan:

Rewite" 1. Huong is Kien's sister . = Kien 2. The children are walking to school. = The

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến