sử dụng câu lệnh for...do...tổ. Viết chương trình tính tổng của N của số tự nhiên lẻ đầu tiên và in kết quả ra màn hình, với N được nhập từ bàn phím

2 câu trả lời

i:=2;s:=0;

while i<=101 do

begin

if i mod 2=0 then s:=s+(i-1);

i:=i+1;

end;

write('S= ',s);

readln

end.

program bttin;

var n,s,i:longint;

begin

write('N=');

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

write ('s=',s);

readln

end. 

Chúc bn học tốt