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