Program HOC24;
var i,n,t: longint;
begin
readln(n);
t:=0;
for i:=1 to n do
begin
t=t+i;
if t>n then
begin
write(t-i);
break;
end;
end;
readln;
end.
Viết chương trình nhập vào số nguyên dương n bất kỳ. Xuất ra trên màn hình kết quả tổng của dãy số sau: A = 1 + 2 + 3 + 4 + … + n Input: n = 5 Output: A = 15
giúp mình với
Viết chương trình tính bình phương số chẵn có trong mảng gồm n phần tử. n≤100. Và kết luận khi mảng không có số chẵn
Hãy tính tổng: A=1 + \(\dfrac{1}{2}+\dfrac{1}{3}\)+...+\(\dfrac{1}{20}\) trong turbo pascal
Viết chương trình sử dụng câu lệnh lặp để tính tích liên tục của N số tự nhiên.
giúp mik nhé mai mik thi học kì 1 rồi. cần gấp lắm ạ
Viết chương trình tính:
a.\(\text{ }\text{ }1+\dfrac{1}{2!}+\dfrac{1}{3!}+...+\dfrac{1}{n!}.\)
b. \(1+\dfrac{1}{2^2}+\dfrac{1}{3^2}+...+\dfrac{1}{n^2}.\)
c. \(3+\dfrac{4}{3}+1+...+\dfrac{n+2}{2n-1}.\)
Viết chương trình tính n! với n! được định nghĩa như sau:
- n! = 1 với n=0
- n! = 1*2*3*...*n( tích của n số từ 1 đến n)
nêu cú pháp và cách thực hiện của câu lệnh lặp tong pascal
Viết chương trình in ra màn hình tất cả các ước của n. ( với n nhập từ bàn phím)
Bn nào bik thì chỉ cho mik với nha! mik cảm ơn mý bn nhìu... ( mik cần gấp lắm!)
