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
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
1 tháng 12 2019 lúc 3:32

Đáp án đúng : D

Trần Thanh Mai
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:01

Câu 1: B

Câu 2:B

Câu 3: D

Câu 4: C

Minh Hiếu Vũ
Xem chi tiết
Cao Tùng Lâm ( nick phụ...
29 tháng 10 2021 lúc 18:01

Gồm 2 phần:

    - Phần khai báo: khai báo tên chương trình, khai báo các thư viện, khai báo hằng, biến.

    - Phần thân: chứa các câu lệnh để máy tính cần thực hiện, đây là phần bắt buộc phải có.

hà lê thị
Xem chi tiết
Minh Lệ
18 tháng 3 2020 lúc 22:31

Đáp án : B. 3 phần

- Cấu trúc chung của chương trình gồm 3 phần , gồm :

+ Phần giới thiệu chương trình

+ Phần thân chương trình

+ Phần kết thúc chương trình

Khách vãng lai đã xóa
Phan Tiến Đạt
19 tháng 3 2020 lúc 9:28

B. 3 phần

Phần đầu: Giới thiệu ct

Phần 2: Phần thần ct

Phần cuối: Kết thúc ct

Khách vãng lai đã xóa
Quân Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2020 lúc 20:57

Câu 1: 

uses crt;

var a:array[1..500]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

       write('A[',i,']='); readln(a[i]);

  end;

t:=0;

for i:=1 to n do 

  if (a[i]<0) and (a[i] mod 7=0) then t:=t+a[i];

writeln('Tong cac so am chia het cho 7 la: ',t);

readln;

end.

Câu 2: 

uses crt;

var c,a:array[1..10]of integer;

i,kt,j,dem:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('C[',i,']='); readln(c[i]);

end;

dem:=0;

for i:=1 to 10 do 

  if c[i]>1 then 

begin

kt:=0;

for j:=2 to c[i]-1 do 

  if c[i] mod j=0 then kt:=1;

if kt=0 then 

begin

inc(dem);

a[dem]:=c[i];

end;

end;

if dem=0 then writeln('Trong day khong co so nguyen to')

else begin

writeln('Cac so nguyen to trong day la: ');

for i:=1 to dem do

write(a[i]:4);

end;

readln;

end.

Câu 3: 

uses crt;

var d:array[1..200]of integer;

i,k,dem:integer;

begin

clrscr;

write('Nhap k='); readln(k);

for i:=1 to k do 

  begin

write('D[',i,']='); readln(d[i]);

end;

dem:=0;

for i:=1 to k do 

  if (a[i] mod 2=0) and (a[i]>=10) then inc(dem);

writeln('So phan tu chan co 2 chu so la: ',dem);

readln;

end.

Mai Phương Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:14

Bài 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:14

Bài 2: 

uses crt;

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

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:14

Bài 3: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.

Chử Ngọc Linh
Xem chi tiết
Nguyễn acc 2
27 tháng 2 2022 lúc 12:19

B

YangSu
27 tháng 2 2022 lúc 12:20

Số thập phân gồm 2 phần

Kudo Shinichi AKIRA^_^
27 tháng 2 2022 lúc 12:21

B

Jack Viet
Xem chi tiết
Cao Thị Thùy Dung
Xem chi tiết
Lee Min Ho
15 tháng 3 2017 lúc 20:15

em không biết