Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Đại An
Xem chi tiết
Đỗ Thị Minh Ngọc
28 tháng 4 2022 lúc 23:03

uses crt;

var n,i:integer;

a:array[1..100] of integer;

begin

clrscr;

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

for i:=1 to n do write(a[i]:2);

readln;

end.

Phạm Ánh Hường
Xem chi tiết
Bảo Ngân
Xem chi tiết
Kiều Vũ Linh
23 tháng 2 2023 lúc 11:15

Var i,s:longint;

Begin

For i:=1 to 999 do

If i mod 2 <> 0 then

Begin

Write(i:6);

s:=s+i;

End;

Writeln;

Write('Tong la ',s);

Readln;

End.

Hằng Phan
Xem chi tiết
phạm ngọc hân
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
8 tháng 9 2019 lúc 18:30

Đáp án D

gia đình
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 0:56

Câu 8: A

Câu 9: B

Câu 11: B

Nguyễn Trang
Xem chi tiết
Phạm Khánh An
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 21:26

Câu 1: B

Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 21:27

Câu 2: D

Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 21:27

Câu 3: D