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

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.

program cau1;

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.

`->` Chương trình:

uses crt;
var s,i,n:longint;

begin

clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if (i mod 2=1) then s:=s+i;
write('s=',s);
readln;
end.

🍀 @ɷįᵰƫ 🍀

Câu hỏi trong lớp Xem thêm