Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap N: '); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1/(i*2);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap N: '); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1/(i*2);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Bài toán tính tổng : S=1+1/2+1/3+...+1/100
a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do
b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do
viết chương trình pascal sử dụng câu lệnh lặp while do để tính tổng s=1+1/2^2+1/3^2+...+1/n^2,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình yêu cầu đưa ra 4 dấu cách và 2 chữ số thập phân sau dấu phẩy
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.
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
viết chương trình sử dụng câu lệnh lặp while...do hoặc for to do để tính tổng s=2+4+6...+n,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình
viết chương trình sử dụng lệnh lặp whill... tính A=1+3+5+...+(2*n+1)
Viết chương trình nhập n số nguyên từ bàn phím Tính: S= 1+2+...+n P= 1*2*...*n ( sử dụng câu lệnh for...do)
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50