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.