Thứ năm, 26/12/2024
IMG-LOGO

Câu hỏi:

22/07/2024 275

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)

Trả lời:

verified Giải bởi qa.haylamdo.com

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.

Câu trả lời này có hữu ích không?

0

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

Câu 1:

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 » 01/09/2021 3,072

Câu 2:

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

Xem đáp án » 01/09/2021 1,625

Câu 3:

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

Xem đáp án » 01/09/2021 1,528

Câu 4:

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 » 01/09/2021 1,141

Câu 5:

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

Var x, y : real;

c : char;

 

i, j : byte;

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

Xem đáp án » 01/09/2021 649

Câu 6:

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ị?

Xem đáp án » 01/09/2021 451

Câu 7:

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

T := 0 ;

FOR i := 1 to 10 DO

IF (i mod 3=0) and (i mod 5=0) THEN T := T + 1 ;

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

Xem đáp án » 01/09/2021 446

Câu 8:

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

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

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

Xem đáp án » 01/09/2021 398

Câu 9:

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

Xem đáp án » 01/09/2021 324

Câu 10:

Phát biểu nào sau đây có thể lấy làm biểu thức điều kiện trong cấu trúc rẽ nhánh?

Xem đáp án » 01/09/2021 287

Câu 11:

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

Xem đáp án » 01/09/2021 284

Câu 12:

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à:

Xem đáp án » 01/09/2021 279

Câu 13:

Cho chương trình Pascal sau:

Program dientich_duongtron;

uses : crt;

const pi = 3.14;

var dt, r = real;

Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng

Xem đáp án » 01/09/2021 270

Câu 14:

Biểu thức toán học dưới đây được biểu diễn trong NNLT Pascal là:

Xem đáp án » 01/09/2021 256

Câu 15:

Biểu thức 5*b + a div 4*3 với a =16, b = 3 có giá trị là:

Xem đáp án » 01/09/2021 247