Những câu hỏi liên quan
Khánh Khánh
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 8 2020 lúc 10:10

uses crt;
var a:array[1..100,1..100]of integer;
n,i,j,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=n div 2+1;
j:=n div 2+2;
for k:=1 to sqr(n) do
begin
a[i,j]:=k;
if k mod n=0 then j:=j+2
else begin
inc(j);
dec(i);
end;
if j>n then j:=j mod n;
if i=0 then i:=n;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.

Bình luận (0)
Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
17 tháng 2 2019 lúc 2:53

Chọn đáp án A

Bình luận (0)
Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
6 tháng 1 2019 lúc 14:57

Đáp án D

Bình luận (0)
Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
18 tháng 5 2018 lúc 5:26

Đáp án D

Bình luận (0)
Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
7 tháng 2 2018 lúc 11:24

Đáp án D

Bình luận (0)
Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
5 tháng 4 2018 lúc 10:24

Đáp án D

Bình luận (0)
Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
31 tháng 5 2018 lúc 9:33

Chọn đáp án D

Bình luận (0)
Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
8 tháng 6 2017 lúc 16:02

Đáp án D

Bình luận (0)
Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
24 tháng 4 2017 lúc 5:18

Poli (acrilonitrin) chứa các nguyên tố C, H, N:

Đáp án D.

Bình luận (0)
Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
28 tháng 10 2017 lúc 13:19

Chọn đáp án D

Bình luận (0)