viết chương trình tính tổng các số lẻ liên tiếp từ 1 đến N sử dụng For..do 21/07/2021 Bởi Caroline viết chương trình tính tổng các số lẻ liên tiếp từ 1 đến N sử dụng For..do
Program abc; Var i, n, T:integer; Begin Writeln(‘Nhap so N’); Readln(n); T:=0; For i:= 1 to n do If i mod 2 = 1 then T:=T+i; Write(‘Tong cac so le la: ‘,T); Readln; End. Bình luận
Dưới ảnh
↓↓↓
Program abc;
Var i, n, T:integer;
Begin
Writeln(‘Nhap so N’);
Readln(n);
T:=0;
For i:= 1 to n do
If i mod 2 = 1 then T:=T+i;
Write(‘Tong cac so le la: ‘,T);
Readln;
End.