sử dụng câu lệnh for do viết chương tính tổng các số tự nhiên lẻ nhỏ hơn hoặc bằng n

Question

minhuyen · Answer

program tong;

uses crt;

var n,i,T: integer;

Begin

write(‘Nhap n: ‘); readln(n);

for i:=1 to n do

if i mod 2<>0 then T:=T+i;

write(‘Tong cac so tu nhien le <= ‘,n,’ la: ‘,T);

readln

End.

0 bình luận về “sử dụng câu lệnh for do viết chương tính tổng các số tự nhiên lẻ nhỏ hơn hoặc bằng n”