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
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.

