Viết chương trình : In ra màn hình các số lẻ từ1 đến 100.Cứ 10 số trên 1 dòng
2 câu trả lời
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.
