Câu hỏi:
08/07/2020 9,040Viế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)
Siêu phẩm 30 đề thi thử THPT quốc gia 2024 do thầy cô VietJack biên soạn, chỉ từ 100k trên Shopee Mall.
Quảng cáo
Trả lời:
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.
Quảng cáo
CÂU HỎI HOT CÙNG CHỦ ĐỀ
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ị?
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:
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:
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à:
về câu hỏi!