uses crt;
var s:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s:0:0);
readln;
end.
viết chương trình tính chu vi, diên tích hình vuông với cạnh a được nhập vào từ bàn phím.❤✿
mn giúp em với ạ T4 em thi rồi!!!Viết chương trình pascal thực hiện tính toán các biểu thức sau:
a) 7.(8 + 5 -2)-30+12
b)(15+5)^2.(6+4)^3
(Mình đg cần mong mn giúp, thanks ạ)
Viết chương trình in ra màn hình các phép tính sau:
a/ 16 div 3; b/ 15 mod 3; c/1.2+1.2.3+1.2.3.4.
mình viết chương trình ra thì bị vầy nè
bạn nào sửa giúp mình với
Câu 1:Viết chương trình tính: S=2+4+6+...+n
Câu 2:Viết chương trình tính: S+1+(1/2)+(1/3)+...(1/n)
Câu 3:Viết chương trình tính trung bình cộng của n số tự nhiên bất kỳ nhập từ bàn phím.
Giúp mik với nhé các bạn, thanks nhiều ạ!
Viết chương trình tính tổng: S = 11+14+17+...+68 M.n giúp e vs t4 e thi r :(((
1.Viết chương trình tính tổng các số tự nhiên từ 100 đến 1000.
giúp mình nhé
viết chương trình tính tổng n số tự nhiên : S =1+2+3+...+ n, với n là số tự nhiên được nhập từ bàn phím ( có sử dụng khai báo biến mảng )
1. Viết chương trình tính tổng sau:
a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)
b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)
2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất
3. Cho một dãy số gồm N phân tử:
- Tính tổng các phân tử trong dãy số
- Tìm phân tử lớn nhất
- In ra màn hình các số nguyên tố có trong dãy
