Câu hỏi:

17/06/2026 184

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

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

 

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

 Writeln(‘Tong la:’,Tong);

 Readln

End.

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

Câu 1:

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

Xem đáp án » 17/06/2026 870

Câu 2:

Xét khai báo biến sau:

Var x, y, z : real;

c, d : boolean;

    i, j : word;

Tổng bộ nhớ dành cho các biến đã khai báo là bao nhiêu byte?

Xem đáp án » 17/06/2026 672

Câu 3:

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

S := 0 ;

FOR i := 1 to 10 DO

IF (i mod 3=0) or (i mod 5=0) THEN S := S + i ;

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

Xem đáp án » 17/06/2026 402

Câu 4:

Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.

Cho biết kết quả sau khi thực hiện đoạn chương trình sau:

D:=0;

FOR i:=1 to 5 DO

    IF a[i] mod 2 = 0 THEN D:= D + 1;

writeln(‘D = ’,D);

Xem đáp án » 17/06/2026 364

Câu 5:

Biểu thức Pascal: -b/sqrt(sqr(a)+b) được biểu diễn trong toán học là:

Xem đáp án » 17/06/2026 300

Câu 6:

Hãy viết các biểu thức toán học sau sang dạng tương ứng trong Pascal:

Xem đáp án » 17/06/2026 232

Câu 7:

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

Xem đáp án » 17/06/2026 225

Câu 8:

Chọn biểu diễn tên sai trong các biểu diễn dưới đây:

Xem đáp án » 17/06/2026 224

Câu 9:

Trong Pascal, khai báo nào sau đây đúng:

Xem đáp án » 17/06/2026 220

Câu 10:

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 ?

Xem đáp án » 17/06/2026 214

Câu 11:

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 » 17/06/2026 203

Câu 12:

Để viết chương trình giải phương trình bậc nhất có dạng: ax + b = 0 (a#0), em cần phải thực hiện lệnh nhập vào từ bàn phím các biến nào sau đây:

Xem đáp án » 17/06/2026 201

Câu 13:

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

IF <điều kiện> THEN write(x,’la so am’) ELSE write(x,’la so duong’);

Điều kiện là biểu thức logic nào dưới đây?

Xem đáp án » 17/06/2026 194

Câu 14:

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

T := 0 ;

FOR i := 1 to 10 DO

IF i mod 2 = 0 THEN T := T + 1 ;

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

Xem đáp án » 17/06/2026 192

Câu 15:

Cú pháp khai báo trực tiếp biến mảng một chiều có dạng:

Xem đáp án » 17/06/2026 187