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
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
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