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