Câu hỏi:
12/07/2024 10,267Viế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)
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).
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 2 = 1 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 2:
Biểu diễn nào dưới đây không phải là biểu diễn hằng trong Pascal:
Câu 3:
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ị?
Câu 5:
Xét biểu thức sau (3*x <=15) and (x <=4). Biểu thức cho kết quả FALSE khi:
Câu 6:
Để 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:
về câu hỏi!