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.