Câu hỏi:

13/07/2024 15,057

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ố chẵn 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 = 0) 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:

Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh:

A. Write(a:8:3, b:8);

B. Readln(a,b);

C. Writeln(a:8, b:8:3);

D. Writeln(a:8:3, b:8:3);

Xem đáp án » 08/07/2020 65,817

Câu 2:

Để nhập giá trị cho 2 biến a và b ta dùng lệnh:

A. Write(a,b);

B. Real(a.b);

C. Read(‘a,b’);

D. Readln(a,b);

Xem đáp án » 08/07/2020 47,654

Câu 3:

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

A. 10

B. 33

C. 3

D. 1

Xem đáp án » 08/07/2020 33,870

Câu 4:

Cho đoạn chương trình sau: x:= 10; y:= 30; writeln(‘x+y’); kết quả màn hình sẽ là gì?

A. 20

B. x+y

C. 10

D. 30

Xem đáp án » 08/07/2020 19,180

Câu 5:

Xét biểu thức logic: (n mod 100 > 10) and (n div 100 < 10)
Với giá trị nào của n sau đây, biểu thức có giá trị đúng?

A. 121

B. 2001

C. 201

D. 1200

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

Câu 6:

Trong pascal, biểu diễn sqr(x) có nghĩa là:

A. Bình phương của x

B. Căn bậc hai của x

C. Giá trị tuyệt đối của x

D. Luỹ thừa cơ số e của x

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

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ố chẵn và là bội của 3. Thông báo kết quả ra màn hình.

Nhà sách VIETJACK:

Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh:

Để nhập giá trị cho 2 biến a và b ta dùng lệnh:

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

Cho đoạn chương trình sau: x:= 10; y:= 30; writeln(‘x+y’); kết quả màn hình sẽ là gì?

Xét biểu thức logic: (n mod 100 > 10) and (n div 100 < 10)
Với giá trị nào của n sau đây, biểu thức có giá trị đúng?

Trong pascal, biểu diễn sqr(x) có nghĩa là:

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ố chẵn và là bội của 3. Thông báo kết quả ra màn hình.

Nhà sách VIETJACK:

Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh:

Để nhập giá trị cho 2 biến a và b ta dùng lệnh:

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

Cho đoạn chương trình sau: x:= 10; y:= 30; writeln(‘x+y’); kết quả màn hình sẽ là gì?

Xét biểu thức logic: (n mod 100 > 10) and (n div 100 < 10)Với giá trị nào của n sau đây, biểu thức có giá trị đúng?

Trong pascal, biểu diễn sqr(x) có nghĩa là:

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ố chẵn 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ả sau khi thực hiện lệnh:
Begin
a := 100; b := 30; x := a div b; Write(x);
End.

Xét biểu thức logic: (n mod 100 > 10) and (n div 100 < 10)
Với giá trị nào của n sau đây, biểu thức có giá trị đúng?