tìm n để tổng Tn = 1+2+3+..+n nhỏ nhất >100
sử dụng lệnh while ...do
sử dụng câu lệnh while... do viết chương trình tìm n nhỏ nhất để tổng đầu tiên lớn hơn 100
Mn giúp mình với ạ :<uses crt;
var n,t:integer;
begin
clrscr;
n:=0; t:=0;
while t<=100 do
begin
n:=n+1;
t:=t+n;
end;
writeln(n);
readln;
end.
Bài 1: Tính tổng ( Sử dụng lệnh while....do )
A=1+\(\dfrac{1}{2}\) +\(\dfrac{1}{3}\) +.......+\(\dfrac{1}{n}\) ( n được nhập từ bàn phím )
Bài 2: Tính tổng ( Sử dụng lệnh while....do )
T=1+\(\dfrac{1}{3}\) +\(\dfrac{1}{5}\) +........+\(\dfrac{1}{n}\) ( n nhập từ bàn phím )
Bài 3: Tính tổng ( Sử dụng lệnh while....do )
A=\(\dfrac{1}{1\cdot3}\) + \(\dfrac{1}{2\cdot4}\) + \(\dfrac{1}{3\cdot5}\) +.........+\(\dfrac{1}{n\left(n+2\right)}\) ( n nhập từ bàn phím )
Giúp với mai mink ktra rồi!
Bài 1:
uses crt;
var a:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
i:=1;
while i<=n do
begin
a:=a+1/i;
i:=i+1;
end;
writeln(a:4:2);
readln;
end.
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2²+1/3²+...+1/n². N là số nguyên nhập từ bàn phím
*for..do
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/sqr(i);
write('S= ',s:6:2);
readln
end.
*while..do
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
s:=s+1/sqr(i);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2+1/3+...+1/n. N là số nguyên nhập từ bàn phím
program tinhtong;
var n,i : integer;
S : real;
begin
write('Nhap n: ');
readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
writeln('Tong S= ',S);
readln;
end.
program tinh_tong_S;
var
n, i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / i;
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
Sử dụng câu lệnh While .. do để viết chương trình tính tổng: S = 1+2+3+…+n . Trong đó n là số nguyên nhập từ bàn phím.
var i,n,s:integer;
begin
write('nhap n = ');readln(n);
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
write('Tong la ',s);
readln;
end.
Sử dụng câu lệnh while...do và câu lệnh for...do để viết chương trình tính tổng n số tự nhiên đầu tiên : S=1+2+3+4+...+n
program whilefor;
var
s,i,n:integer;
begin
write(' nhap n : ');
readln(n);
s:=0;
for i:= 1 to n do
s:= s +i;
writeln(' tong khi dung vong lap for la : ',s);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
write(' tong khi dung vong lap while la : ',s);
readln;
end.
Program CT_Tinh_Tong;
Uses Crt;
Var n,i:integer;
S;longint;
Begin
CLRSCR;
Write ('n=');readln (n);
S:=0;
For i:=1 to n do S:=S+i;
Write ('S=',S);
Readln;
End.
var n,i,s:longint;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('Tong:',s);
readln;
end.
Viết chương trình sử dụng lệnh lặp While...do để tính tổng các số tự nhiên từ 1 đến 100
Lời giải :
program hotrotinhoc;
var tong,n : integer;
begin
tong:=0; n:=0;
while tong<100 do
begin
n:=n+1;
tong:=tong+n;
end;
write('Tong la :',tong);
readln
end.
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+3+5+...+n. N là số nguyên nhập từ bàn phím
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S la: ', S);
readln;
end.
Sử dụng câu lệnh lặp while…do để viết chương trình sau: a) S= 1/1*2+1/2*3+...1/n*(n+1)
program Tinh_S;
var i,n:integer;
S:real;
begin
writeln('Nhap so n=') ; readln(n);
i:=1 ; S:=0;
while i<=n do
begin
S:=S+1/n*(n+1); i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
program Tinh_S;
var i,n:integer;
S:real;
begin
writeln('Nhap so n=') ; readln(n);
i:=1 ; S:=0;
while i<=n do
begin
S:=S+1/n*(n+1); i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
program tinh_tong_S;
var
n: integer;
i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / (i * (i + 1));
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.