Câu hỏi:

13/07/2024 1,374

Viết chương trình:
- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).
- Đếm và tính tổng các số lẻ và là bội của 3. Thông báo kết quả ra màn hình.

Xem lời giải

Câu hỏi trong đề: Top 4 Đề thi Tin học 11 Học kì 1 có đáp án !!

Trả lời:

Giải bởi Vietjack

Program bt_3;

Uses crt;

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

Dem, Tong, n, i: integer;

Begin

Clrscr;

Writeln(‘nhap so phan tu, n=’);

Readln (n);

for i := 1 to n do

begin

writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

readln(a[i]);

end;

Dem:=0;

Tong:=0;

For i:=1 to n do

If (a[i] mod 2 = 1) and (a[i] mod 3 = 0) then

begin

Dem:= Dem+1;

Tong:= Tong+a[i];

end;

writeln(‘Dem la:’,Dem);

Writeln(‘Tong la:’,Tong);

Readln

End.

Bình luận hoặc Báo cáo
về câu hỏi!

Câu 1:

Cho biết kết quả của đoạn chương trình sau?
N:=5; Tong:=0;
For i:=1 to n do
If (i mod 2=0) then Tong:=Tong + 1;
Write(Tong);

A. 3

B. 1

C. 6

D. 2

Xem đáp án » 08/07/2020 32,604

Câu 2:

Biến X có thể nhận giá trị: 0; 1; 3; 5; 7; 9 và biến Y có thể nhận các giá trị 0.5; 1.5; 2.5; 3.5; 4.5. Khai báo biến nào sau đây là đúng?

A. Var X: Byte; Y: Real;

B. Var X: Real; Y: Byte;

C. Var X, Y: Integer;

D. Var X, Y: Byte;

Xem đáp án » 08/07/2020 20,395

Câu 3:

Biểu thức nào không phải là biểu thức trong Pascal?

A. (a+x)*(b+y):2

B. ( m div 5 >=2 ) or ( m <=2)

C. a*sqr(x) + b*x + c = 0

D. Not (a < >10)

Xem đáp án » 08/07/2020 16,142

Câu 4:

Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị false?

A. 65;

B. 208;

C. 2009;

D. 166509.

Xem đáp án » 08/07/2020 9,129

Câu 5:

Trong NNLT Pascal câu lệnh Write( ‘5 x 4 = ‘ , 5*4 ) ; viết gì ra màn hình là :

A. 5 x 4 = 20

B. 5 x 4 = 5*4

C. 20 = 5 * 4

D. 20 = 20

Xem đáp án » 08/07/2020 7,437

Câu 6:

Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 15; x := a div b ; Write(x);
End.

A. 10

B. 33

C. 3

D. 6

Xem đáp án » 08/07/2020 5,418

Câu 7:

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:
i:=1;
While i <5 do
Begin
if I mod 3 = 1 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần

A. 3

B. 2

C. 1

D. 0

Xem đáp án » 08/07/2020 4,650

Xem thêm các câu hỏi khác »

Viết chương trình:
- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).
- Đếm và tính tổng các số lẻ và là bội của 3. Thông báo kết quả ra màn hình.

Nhà sách VIETJACK:

Cho biết kết quả của đoạn chương trình sau?
N:=5; Tong:=0;
For i:=1 to n do
If (i mod 2=0) then Tong:=Tong + 1;
Write(Tong);

Biến X có thể nhận giá trị: 0; 1; 3; 5; 7; 9 và biến Y có thể nhận các giá trị 0.5; 1.5; 2.5; 3.5; 4.5. Khai báo biến nào sau đây là đúng?

Biểu thức nào không phải là biểu thức trong Pascal?

Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị false?

Trong NNLT Pascal câu lệnh Write( ‘5 x 4 = ‘ , 5*4 ) ; viết gì ra màn hình là :

Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 15; x := a div b ; Write(x);
End.

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:
i:=1;
While i <5 do
Begin
if I mod 3 = 1 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần

Bình luận

🔥 Đề thi HOT:

VIP +3 tháng ( 199,000 VNĐ )

VIP +6 tháng ( 299,000 VNĐ )

VIP +12 tháng ( 499,000 VNĐ )

Viết chương trình:- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).- Đếm và tính tổng các số lẻ và là bội của 3. Thông báo kết quả ra màn hình.

Nhà sách VIETJACK:

Cho biết kết quả của đoạn chương trình sau?N:=5; Tong:=0;For i:=1 to n do If (i mod 2=0) then Tong:=Tong + 1; Write(Tong);

Biến X có thể nhận giá trị: 0; 1; 3; 5; 7; 9 và biến Y có thể nhận các giá trị 0.5; 1.5; 2.5; 3.5; 4.5. Khai báo biến nào sau đây là đúng?

Biểu thức nào không phải là biểu thức trong Pascal?

Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị false?

Trong NNLT Pascal câu lệnh Write( ‘5 x 4 = ‘ , 5*4 ) ; viết gì ra màn hình là :

Cho biết kết quả sau khi thực hiện lệnh:Begina := 100; b := 15; x := a div b ; Write(x);End.

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:i:=1;While i <5 do Beginif I mod 3 = 1 then Write(‘TIN HOC’);i:=i+1; End;Chữ TIN HOC được in ra màn hình mấy lần

Bình luận

🔥 Đề thi HOT:

VIP +3 tháng ( 199,000 VNĐ )

VIP +6 tháng ( 299,000 VNĐ )

VIP +12 tháng ( 499,000 VNĐ )

CHỌN BỘ SÁCH BẠN MUỐN XEM

Đăng ký

Đăng nhập

Quên mật khẩu

Viết chương trình:
- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).
- Đếm và tính tổng các số lẻ và là bội của 3. Thông báo kết quả ra màn hình.

Cho biết kết quả của đoạn chương trình sau?
N:=5; Tong:=0;
For i:=1 to n do
If (i mod 2=0) then Tong:=Tong + 1;
Write(Tong);

Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 15; x := a div b ; Write(x);
End.

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:
i:=1;
While i <5 do
Begin
if I mod 3 = 1 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần