Lời giải :
program hotrotinhoc;
var i,n : integer;
T,S : real ;
begin
write('Nhap n='); readln(n);
while (n>1) or (n>2018) do
begin
write('n chua thoa man yeu cau nhap lai n='); readln(n);
end;
for i:= 1 to n do
S:=S+1/((i-1)+i) ;
T:=S+2018;
write('S=',S);
readln
end.
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
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
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!!!!!
viết chương trình tính tổng S= 1/3 + 1/5 + 1/7+....+1/(2n+1)
In kết quả ra màn hình. Với n là số nguyên dương được nhập vào 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)
viết trương trình tính tổng sau với N nhập số từ bàn phím
T = 1*2/3*4+2*3/4*5+.......+n(n+1)/(n+2)*(n+3)
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
viết chương chình tính tổng bình phương các số chẵn từ 1 đến n, với n được nhập từ bàn phím. s = 2^2 + 4^2 + 6^2 +...+ N^2
ví dụ:
nhap n=5
tong la= 20
