program andanh;
uses crt;
var tong: real;
n,i:integer;
begin
clrscr; i:= 1; tong:= 1;
write('Nhap N: ');readln(n);
while i <= n do
begin
tong:= tong + 1/(i * (i + 1));
i:= i + 1;
end;
write('Tong la: ',tong:0:2);
readln
end.
uses crt;
var a:real;
n,i:longint;
begin
clrscr;
write('n='); readln(n);
a:=0;
i:=1;
while i<=n do
begin
a:=a+1/(i*(i+1));
inc(i);
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
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
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
Viết chương trình tính tổng n số, với n được nhập từ bàn phím ( sử dụng while..do)?
Viết chương trình sử dụng lệnh lặp while....do... để đếm các số tự nhiên chia hết cho 5 từ 1 -> n được nhập từ bàn phím
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!
Viết chương trình tính tổng các số lẻ từ 1 tới n (với n được nhập từ bàn phím) bằng vòng lặp While..do *
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
