program tong;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
s:=s+(1/(i*2));
write('tong la:',s:0:2);
readln;
end.
viết chương trình tính tổng các bình phương của n số tự nhiên S=1^2+2^2+...n^2
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
Cho số tự nhiên n Hãy lập trình tính tổng sau s =1+1/2+1/3+...+1/n
Giúp Tui với ạ(đang cần gấp)!!!! Cho mô tả thuật toán sau: Bước 1. S<--0;n<--0; bước2. Nếu n>4 thì chuyển đến bước 4. Bước3. N<--n+1;S<--S+n;quay lại bước2. Bước 4.thông báo gtri S. a)tính gtri S,n. b) vt chương trình (sử dụng vòng lặp For...to...do)
Cho số tự nhiên n, tính tổng sau:
S=1-2+3-4+5-6+.....-n
Tính tổng s, số n được nhập từ bàn phím
Vd: n=3 => s=2 (1-2+3=2)
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
em hãy viết chương trình để tính tổng A sau đây( n là số tự nhiên được nhập vào từ bàn phím) A=1/1*3+1/2*4+1/3*5+.......+1/n*(n+2)
help me vs!!!!!
