Nhập
số n từ bàn phím với n>0 và in
tổng các số lẻ nhỏ hơn n
Code:
program Tong_le;
uses crt;
var n,i,s:integer;
begin
clrscr;
repeat
write('Nhap so bat ki lon hon 0: '); readln(n);
until (n>0);
s:=0;
for i:=1 to n do
begin
if i mod 2 <>0 then s:=s+i
end;
writeln('Tong cac so le la: ',s);
readln;
End.
