KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
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.
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.