Cho dãy số từ 0 đến N(N nhập từ bàn phím) Tính tổng các số lẻ trong dãy số
2 câu trả lời
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=0 to n do
if i mod 2=1 then inc(s,i);
writeln('Tong cac so le: ',s);
readln
end.
Câu hỏi trong lớp
Xem thêm
