uses crt;
var i,n:integer;
a:real;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+1/sqr(i);
writeln('Ket qua la: ',a:4:2);
readln;
end.
Câu 1: Tìm tổng n số tự nhiên nhập từ bàn phím.
Câu 2: Tìm tích n số tự nhiên nhập từ bàn phím.
Giúp mình với ạ:(( Mai mình thi rồi:((
Viết chương trình tính tổng: S=1+1/2+1/3+...+1/n
Biết n là số tự nhiên được 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+1/2²+1/3²+...+1/n². N là số nguyên nhập từ bàn phím
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
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
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!
tính tổng các số tự nhiên A=1+2+3+4+...+n sử dụng vòng lập for...do
tính tổng các số tự nhiên A=1+2+3+4+...+n sử dụng vòng lập while...do
