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ố 17/07/2021 Bởi Jade 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ố
uses crt;var n,i,s:longint;beginclrscr; 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);readlnend. Bình luận
Dưới ảnh
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.