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
2 câu trả lời
của bạn đây ạ
program bai1;
var s,i,n:longint;
begin
write('N= ');
readln(n);
s:=0;
for i:=1 to n do
if i mod 2<>0 then s:=s+i;
write('s= ',s);
readln
end.
var n,s,i:longint;
begin
while n<1 do
write('nhap n :');
read(n);
for i:=1 to n do
if i mod 2 <>0 then s:=s+i;
writeln('tong cac so tu nhien le tu 1 den ,n,'la',s);
readln;
end.
Câu hỏi trong lớp
Xem thêm