Viết chương trình với số lần lặp chưa biết trước: a) 1+3+5+...+2n b) 2+4+6+...+(2n-1)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
if i mod 2=1 then t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=0;
while i<=n do
begin
i:=i+2;
t:=t+i;
end;
writeln(t);
readln;
end.
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=10 do
begin
if i mod 2=1 then write(i:4);
i:=i+1;
end;
readln;
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln;
end.
program TinhTongWhileDo;
var
n, i: integer;
S: real;
begin
write('Nhap so n: ');
readln(n);
S := 0;
i := 1;
while i <= 2*n do
begin
S := S + 1/i;
i := i + 1;
end;
writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);
readln;
end.
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=11;
while i<=101 do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
program tong_100_so_tu_nhien;
uses crt;
var i, S: integer;
begin
S := 0;
for i := 1 to 100 do
S := S + i;
writeln('Tong cua 100 so tu nhien dau tien la ', S);
readln;
end.
Var i,s:integer;
Begin
i:=1;
s:=0;
While i<=100 do
Begin
s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Câu a:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n+1):
S += i
print("Tổng S =", S)
Câu b:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n, 2):
S += i
print("Tổng S =", S)
Câu c:
def calc_sum(n):
s=0
for i in range(1,n+1):
s += 2*i
return s
n = int(input("Nhập vào số n: "))
print("Tổng S=2+4+6+...2n là:",calc_sum(n))
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n+1):
S += i
print("Tổng S =", S)
Câu b:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n, 2):
S += i
print("Tổng S =", S)
Câu c:
def calc_sum(n):
s=0
for i in range(1,n+1):
s += 2*i
return s
n = int(input("Nhập vào số n: "))
print("Tổng S=2+4+6+...2n là:",calc_sum(n))
a)
program tinh_tong;
uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0
while i<n do
begin
if i mod 2=1 then tong:=tong+i
else i:=i+1;
end;
tong:=tong+2*n;
writeln('tong la:',tong);
readln;
end.
b)
program tinh_tong;
uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0
while i<n do
begin
if i mod 2=0 then tong:=tong+i
else i:=i+1;
end;
tong:=tong+(2*n-1);
writeln('tong la:',tong);
readln;
end.
b) uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=2*n-1 do
begin
i:=i+1;
if i mod 2=0 then t:=t+i;
end;
writeln(t);
readln;
end.