Câu hỏi:

13/07/2024 9,902

Viết chương trình tính tổng các giá trị là bội của 3 trong phạm vi từ 1 đến N

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

Sách mới 2k7: Tổng ôn Toán, Lí, Hóa, Văn, Sử, Địa…. kỳ thi tốt nghiệp THPT Quốc gia 2025, đánh giá năng lực (chỉ từ 110k).

Tổng ôn toán Tổng ôn sử Các môn khác

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 3 = 0 then Tong:=Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

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

Câu 1:

Trong Pascal, các đoạn chú thích được đặt giữa cặp dấu nào ?

Xem đáp án » 08/07/2020 70,021

Câu 2:

Cho đoạn chương trình sau:

S := 0 ;

FOR i := 1 to 10 DO

IF i mod 2 = 1 THEN S := S + 1 ;

Sau khi thực hiện, S có giá trị?

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

Câu 3:

Trong Pascal, câu lệnh ghép có dạng:

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

Câu 4:

Biểu diễn nào dưới đây không phải là biểu diễn hằng trong Pascal:

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

Câu 5:

Xét biểu thức sau (3*x <=15) or (x <=4). Biểu thức cho kết quả TRUE khi:

Xem đáp án » 08/07/2020 8,521

Câu 6:

Cho đoạn chương trình sau:

readln(x,y);

IF x > y THEN F:= 2*x – y ELSE

IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;

Nếu nhập vào từ bàn phím x=2 và y=3 thì giá trị của F là:

Xem đáp án » 08/07/2020 8,135

Bình luận


Bình luận
Đăng ký gói thi VIP

VIP 1 - Luyện thi tất cả các đề có trên Website trong 1 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP 2 - Luyện thi tất cả các đề có trên Website trong 3 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP 3 - Luyện thi tất cả các đề có trên Website trong 6 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP 4 - Luyện thi tất cả các đề có trên Website trong 12 tháng

  • Siêu tiết kiệm - Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

Vietjack official store