Viết chương trình nhập một số nguyên n

a. In ra màn hình tổng các số lẻ từ 1 đến n

Cần gấp ạ!!!!

2 câu trả lời

Đây nha bn :))

program tong;

uses crt;

var N,i,dem:integer;

begin

       clrscr;

        write('nhap vao so nguyen N ');read(n);

       dem:=0;

         for i:=1 to N do

              if N mod 2<> 0 then dem:=dem+i; 

write( 'tong so le tu 1 den  ',N, 'la ',dem);

readln

end.