Câu hỏi:

19/08/2025 20,391 Lưu

Viết chương trình tính tổng các giá trị chẵn trong phạm vi từ 1 đến N

(Số nguyên dương N được nhập vào từ bàn phím)

Quảng cáo

Trả lời:

verified Giải bởi Vietjack

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 0 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Lời giải

Đáp án đúng : A

Câu 2

A. Var <tên biến mảng> : array [kiểu chỉ số] of <kiểu phần tử>;

B. Var <tên biến mảng> = array [kiểu chỉ số] of <kiểu phần tử>;

C. Var <tên biến mảng> : array [kiểu chỉ số] of <kiểu phần tử>

D. Var <tên biến mảng> := array [kiểu chỉ số] of <kiểu phần tử>;

Lời giải

Đáp án đúng : A

Câu 3

A. if <điều kiện> then <câu lệnh> ;

B. if <điều kiện> then <câu lệnh>

C. if <điều kiện> then <câu lệnh 1> else <câu lệnh 2> ;

D. if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 5

A. Tinh_DTB

B. Tinh DTB

C. Tinh#DTB

D. 1Tinh_DTB

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP