Câu hỏi:

08/07/2020 2,302

Viết chương trình tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)

Xem lời giải

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

Trả lời:

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

Writeln(‘Tong la:’,Tong);

Readln

End.

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

Câu 1:

Phát biểu nào dưới đây là hợp lí nhất khi nói về biến:

A. Biến là đại lượng có giá trị không thay đổi trong quá trình thực hiện chương trình

B. Biến là đại lượng được đặt tên và có giá trị thay đổi trong quá trình thực hiện chương trình

C. Biến có thể lưu trữ nhiều loại giá trị khác nhau

D. Biến có thể đặt hoặc không đặt tên gọi

Xem đáp án » 08/07/2020 50,841

Câu 2:

Cho khai báo biến sau đây:
Var m, n : integer ;
x, y : real ;
Lệnh gán nào sau đây là sai ?

A. m := -4.5 ;

B. n := 3 ;

C. x := 6.5 ;

D. y := +10.5 ;

Xem đáp án » 08/07/2020 49,693

Câu 3:

Xét biểu thức logic: (n >0) and (n mod 2 = 1). Khẳng định nào sau đây là đúng?

A. Kiểm tra n là một số nguyên lẻ

B. Kiểm tra xem n có là một số dương

C. Kiểm tra n có chia hết cho 2 không

D. Kiểm tra n là một số nguyên dương lẻ

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

Câu 4:

Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF i mod 2 = 1 THEN S := S + i ;
Sau khi thực hiện, S có giá trị?

A. 3

B. 5

C. 25

D. 30

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

Câu 5:

Cho đoạn chương trình sau:
T := 0 ; i:=1;
WHILE i <= 10 DO
BEGIN
IF i mod 3 = 0 THEN T := T + i ;
i:=i+1;
END;
Sau khi thực hiện, T có giá trị?

A. 18

B. 22

C. 25

D. 30

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

Câu 6:

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

A. A51

B. ’TRUE

C. 5 + 9

D. 1;06E - 15

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

Câu 7:

Cho biến thực x đã được gán giá trị 12.41235. Sau khi thực hiện câu lệnh Writeln(‘x=’ ,x:5:2); thì giá trị của biến x được in ra màn hình là:

A. 12.41

B. 12

C. x=12.41

D. x=12

Xem đáp án » 08/07/2020 3,863

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

Viết chương trình tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)

Nhà sách VIETJACK:

Phát biểu nào dưới đây là hợp lí nhất khi nói về biến:

Cho khai báo biến sau đây:
Var m, n : integer ;
x, y : real ;
Lệnh gán nào sau đây là sai ?

Xét biểu thức logic: (n >0) and (n mod 2 = 1). Khẳng định nào sau đây là đúng?

Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF i mod 2 = 1 THEN S := S + i ;
Sau khi thực hiện, S có giá trị?

Cho đoạn chương trình sau:
T := 0 ; i:=1;
WHILE i <= 10 DO
BEGIN
IF i mod 3 = 0 THEN T := T + i ;
i:=i+1;
END;
Sau khi thực hiện, T có giá trị?

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

Cho biến thực x đã được gán giá trị 12.41235. Sau khi thực hiện câu lệnh Writeln(‘x=’ ,x:5:2); thì giá trị của biến x được in ra màn hình 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 tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N(Số nguyên dương N được nhập vào từ bàn phím)

Nhà sách VIETJACK:

Phát biểu nào dưới đây là hợp lí nhất khi nói về biến:

Cho khai báo biến sau đây:Var m, n : integer ;x, y : real ;Lệnh gán nào sau đây là sai ?

Xét biểu thức logic: (n >0) and (n mod 2 = 1). Khẳng định nào sau đây là đúng?

Cho đoạn chương trình sau:S := 0 ;FOR i := 1 to 10 DOIF i mod 2 = 1 THEN S := S + i ;Sau khi thực hiện, S có giá trị?

Cho đoạn chương trình sau:T := 0 ; i:=1;WHILE i <= 10 DOBEGINIF i mod 3 = 0 THEN T := T + i ;i:=i+1;END;Sau khi thực hiện, T có giá trị?

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

Cho biến thực x đã được gán giá trị 12.41235. Sau khi thực hiện câu lệnh Writeln(‘x=’ ,x:5:2); thì giá trị của biến x được in ra màn hình 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 tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)

Cho khai báo biến sau đây:
Var m, n : integer ;
x, y : real ;
Lệnh gán nào sau đây là sai ?

Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF i mod 2 = 1 THEN S := S + i ;
Sau khi thực hiện, S có giá trị?

Cho đoạn chương trình sau:
T := 0 ; i:=1;
WHILE i <= 10 DO
BEGIN
IF i mod 3 = 0 THEN T := T + i ;
i:=i+1;
END;
Sau khi thực hiện, T có giá trị?