Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng N(với N được nhập từ bàn phím)
2 câu trả lời
program baitap;
uses crt;
var n,i,sum:longint;
begin
clrscr;
readln(n);
for i := 1 to n do
if (i mod 2 = 1) then sum := sum + i;
writeln('Tong cac so le = ',sum);
readln;
end.
program bai_giai;
uses crt;
var n,i,tong:longint;
begin
clrscr;
write('Nhap N: '); readln(n);
tong:=0;
for i:=1 to n do
if i mod 2=1 then tong:=tong+i;
write(tong);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
