uses crt;
var i,n:integer;
s:real;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(i/(i*sqr(i+5)));
writeln(s:4:2);
readln;
end.
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(i/(i*sqr(i+5)));
writeln(s:4:2);
readln;
end.
viết chương trình in ra các số lẻ trong 1000 số tự nhiên daaffu tiên và tính tổng các số lẻ đó
mọi người giúp mình vs ạ , mai mình ktra r , thankkkk
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n ( Với n được nhập).
Yêu cầu nhập lại nếu n<=0
ai trả lời giúp mình được ko cảm ơn
Viết chương trình nhập dữ liệu là ma trận đối xứng vào mảng hai chiều. Nhờ mn giúp mik vs ạ cảm ơn mn rất nhiều 😆😆
Cho bàu toán sau: viết chương trình tính tổng T=1+2+...+120 hãy sử dụng vòng lặp while do viết chương trình tính tổng bằng T (Giúp t vs mn ơi t cần gấp
Viết chương trình dãy số, in dãy số đó ra màn hình. Giúp mình với ạ
1.Em hãy viết chương trình tính tích các số từ 5 đến 50.
giúp mik với
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn