Sửa đề: Tính tổng S=1+4+9+16+...+10000
uses crt;
var i,s:real;
begin
clrscr;
i:=0;
s:=0;
while i<=100 do
begin
i:=i+1;
s:=s+sqr(i);
end;
writeln('S=',s:4:2);
readln;
end.
Sửa đề: Tính tổng S=1+4+9+16+...+10000
uses crt;
var i,s:real;
begin
clrscr;
i:=0;
s:=0;
while i<=100 do
begin
i:=i+1;
s:=s+sqr(i);
end;
writeln('S=',s:4:2);
readln;
end.
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
Câu 1: 2e^x+y/x2+y biểu thức sau viết trong pascal sẽ là ?
Câu 2: lập chương trình nhập vào số n rồi tính
S= ½+ 2/3+ ¾+….+n/n+1
viết chương trình tính tổng các số lẻ trong phạm vi từ M đến N với M, N là 2 số nguyên dương được nhập từ bàn phím (M<N).
Viết chương trình tính va xuất ra TBC từ 1 - N ( N là số nhập từ bàn phím).
Viết chương trình tính số ngày của 1 năm. Biết năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100.
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra chúng có phải là độ dài 3 cạnh của một tam giác không? Nếu có hãy tính chu vi và diện tích tam giác ấy.
Mọi người ơi giúp em bài này với
Viết chương trình pascal
Hãy tính tổng sau :
1. S = 2+4+6+...+100
2.S = 1/2 + 1/4 + ... + 1/100
3. Hãy tính tích sau : T = 1.3.5. ... .99
4. Nhập vào 5 số từ bàn phím hãy tính tổng của những số chia hết cho 3
Em cảm ơn nhiều lắm ạ :(((((
Viết chương trình nhập vào 2 số nguyên dương m, n (m<n), tính T1 là tích tất cả các số trong phạm vi từ 1 đến n và T2 là tích các số lẻ trong phạm vi từ m đến n và đưa kết quả ra màn hình.
giúp em bài này với ạ, em cám ơn ạ <3
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra chúng có phải là bộ số pitago hay không?
viết chương trình nhập một dãy A gồm N số nguyên. Hãy cho biết trong dãy đó có bao nhiêu số chia hết cho 3