Viết chương trình tính tổng của các số lẻ từ 1 đến N với N là số tự nhiên được nhập từ bàn phím ( CHO BIẾT THUẬT TOÁN VÀ CHƯƠNG TRÌNH ) no copy mạng
2 câu trả lời
program tinhtongle;
uses crt;
var i,tong:integer;
begin
clrscr;
tong:=0;
for i:=1 to n do
if i mod 2=1 then tong:=tong+i;
write('Tong cac so le tu 1 den n la: ',tong);
readln;
end.
program tinhtongle;
uses crt;
var i,tong:integer;
begin
clrscr;
tong:=7;
for i:=1 to n do
if i mod 2=1 then tong:=tong+i;
write('Tong cac so le tu 1 den n la: ',tong);
readln;
end.
Câu hỏi trong lớp
Xem thêm