Uses crt;
Var s,i,E:real;
Begin
Clrscr;
Write('Nhap gia tri cua E: ');read(E);
s:=0;
i:=1;
Repeat
Inc(s,1/i);
Inc(i);
Until (1/i<E);
Write('Gia tri cua S la: ',s);
Readln;
End.
Uses crt;
Var s,i,E:real;
Begin
Clrscr;
Write('Nhap gia tri cua E: ');read(E);
s:=0;
i:=1;
Repeat
Inc(s,1/i);
Inc(i);
Until (1/i<E);
Write('Gia tri cua S la: ',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
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
Dùng pascal để tính tổng S=1/(1+37)+1/(1+38)+1/(1+39)+...+1/1+n VD: nhập n từ bàn phím n>STT (37)
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.
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)
Viết chương trình tính tích s=1/n*...*1/m(m,n là các số nguyên đc nhấn từ bàn phím )
Viết chương trình C++ in ra màn hình các số chia hết cho 3 trong phạm vi từ 1 đến n (n là số nguyên dương được nhập từ bàn phím)
viết chương trình in ra màn hình từ 1 đến n, n là số nguyên dương nhập từ bàn phím
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