program tinhtong;
var i,n:integer;
s:real;
begin
write('nhap n='); readln(n);
s:=0;
for i:=1 to n+1 do s:=s+1/i;
write('tong la:',s);
readln
end.
program tinhtong;
var i,n:integer;
s:real;
begin
write('nhap n='); readln(n);
s:=0;
for i:=1 to n+1 do s:=s+1/i;
write('tong la:',s);
readln
end.
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +n?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
viết chương trình tính tổng s=1+1/3+1/5+....+1/2n-1 bằng câu lệnh for do và while do
viết chương trình sử dụng câu lệnh lặp for...do tính S=1+1/2^3+1/3^3+...+1/n^3
GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.
Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)
N nhập từ bàn phím
viết chương trình tính tổng n số lẻ đầu tiên với n được nhập bằng bàn phím. Gợi ý for i:=1 t on do s:=s+(2i-1)
Dùng câu lệnh lặp For... to... do để viết chương trình tính tổng s: 1+5+10+15+...+n
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
viết chương trình tính tổng
s= 1*2/3*4+2*3/4*5+3*4/5*6+...+n*(n+1)/(n+2)*(n+3)
Viết chương trình tính tổng sau S=1-2+3-4.....-n