Viết chương trình in ra màn hình các số lẻ từ 1 đến 100

Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên. Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N.

Viết chương trình in ra màn hình các số lẻ từ 1 đến 100

Program TinhTongCacSoChanTu1den100_Cach3;
Var n, i: integer;
 tong, so: integer;

BEGIN
 writeln('Chuong trinh tinh tong cac so chan trong khoang tu 1 -> 100');
 readln;

 tong: = 0;
 for i:= 1 to 50 do
   tong:= tong + 2*i;

 writeln('Tong cua cac so chan trong khoang tu 1 -> 100 bang: ',tong:4);
 readln;
END.

Program Tinhtongcacsochantu1den100
Var n, i: integer;
 tong, so: integer;
BEGINreadln;
END.

Video tham khảo