Viết chương trình nhập vào số tự nhiên n . Tính và in ra màn hình tổng các số lẻ nhỏ hơn hoặc bằng n
2 câu trả lời
program hoc_bai;
uses crt;
var i,n: integer;
s: longint;
writeln('Nhap n'); readln(n);
s:=0;
for i:=1 to n do if i mod 2 = 1 then s:=s+i;
writeln('Tong la', s);
readln
end.
program hotrotinhoc ;
var i,n : integer ;
begin
write('n='); readln(n);
for i:= 1 to n do
if (i mod 2 = 1) and (i<=n) then write(i);
readln
end.