mọi người giải gấp hộ mình tối nay mình hc đội tuyển r
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+3));
writeln(s:4:2);
readln;
end.
Viết chương trình tính và đưa ra tổng sau: S = 1 + 1/3 + 1/5 +1/7 +….+1/N+…cho đến khi S > 3,15.
Viết chương trình nhập số tự nhiên n 2 in ra màn hình các số chẵn từ 1 đến n tính tổng số chẵn Vd) N=10;các số chẵn2,4,6,8,10 Tính tổng =2+4+6+8+10
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 tính tổng 1+5+10+15+...+n Giúp em vs ạ đg cần gấp!!
Câu 3: Viết chương trình tính tổng S= 
1+1/2^2+1/3^3+...+1/n^2 với n
N*cho trước (Sử dụng vòng lặp while..do)
Các bạn giúp mình được không ạ.
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 tính tổng A = \(\dfrac{1}{1}\) + \(\dfrac{1}{2}\) + \(\dfrac{1}{3}\) + ... + \(\dfrac{1}{n}\)
__________________________
Rất mong mọi người giúp đỡ mình ạ T-T
