Program HOC24;
var t: longint;
n,i: integer;
begin
write('Nhap n= '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(n,'! =',t);
readln
end.
Program HOC24;
var t: longint;
n,i: integer;
begin
write('Nhap n= '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(n,'! =',t);
readln
end.
Viết chương trình tính tổng B = \(\dfrac{1}{1.3}\) + \(\dfrac{1}{2.4}\) +\(\dfrac{1}{3.5}\) + ... + \(\dfrac{1}{n\left(n+2\right)}\)
________________________________________
Mọi người giúp mình với ạ, mình sắp thi rồi :((
Câu 3: Viết chương trình tính tổng S= 1+1/2^2+1/3^3+...+1/n^2 với n N*cho trước (Sử dụng vòng lặp while..do)
Các bạn giúp mình được không ạ.
Viết chương trình tính tổng 1+5+10+15+...+n Giúp em vs ạ đg cần gấp!!
Viết chương trình tính tổng A = \(\dfrac{1}{1}\) + \(\dfrac{1}{2}\) + \(\dfrac{1}{3}\) + ... + \(\dfrac{1}{n}\)
__________________________
Rất mong mọi người giúp đỡ mình ạ T-T
điền tiếp và sửa lại nếu mình có sai giúp mình với ạ, mình đang cần gấp!!!
Viết chương trình nhập dãy số nguyên gồm n phần tử . In lên màn hình. Tính trung bình các phần tử chẳn lẻ . In lên màn hình
Giúp mình với ạ mai mình thi rồi
"Sử dụng câu lệnh While .. do viết chương trình: Nhập vào một số nguyên dương và kiểm tra xem số đó có phải là số nguyên tố không?" Giúp mình nhanh nhanh với ạ, tuần sau thi rồi:(
lập chương trình tính :
+ S1 = 1*2*3*4*...*n ( n là số nguyên )
+ S2 = 10+11+12+13+... sao cho S 2 là số lớn nhất bé hơn 10 000
giúp mình với ạ